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Nieuw: Management-Tools 


voor de ST Logistix. 


Logistix is een geïntegreerd software-pakket voor de Atari ST. 
Met Logistix voegt v-aan al v applicaties de dimensie TĲD toe. 

Met Logistix heeft v de software-tools in handen welke u in staat stellen om vitge- 
breide NETWERKPLANNINGEN, VAKANTIEROOSTERS, LESROOSTERS, PRODUKTIE- 
PLANNINGEN, BEZETTINGSPLANNINGEN VOOR HOTELS, PROJECTPLANNINGEN, 
TERMIJNPLANNINGEN, KOSTENANALYSES, MEDIAPLANNINGEN, HET MAKEN VAN 
FLIP-CHARTS etc,te maken. 

Logistix bestaat vit de onderdelen: database, tijdplanning, netwerkplanning, 
spreadsheet en grafieken. 

Een schildersbedrijf kan bijvoorbeeld in de database alle relevante gegevens op- 
slaan over de medewerkers, machines, aangenomen werk etc. Deze gegevens dienen als 
basis voor vw kostprijsberekeningen, voor de capaciteitsplanning, voor de indeling van 
het werk en u kunt alles dankzij de krachtige grafieken ook nog visveel maken. 

Met Logistix kan nu elke manager antwoord geven op vragen zoals: 

* Hoe lang gaat dit project duren? 

* Hoeveel kamers zijn er in welke periode nog vrij? 

* Wat is de bezettingsgraad van mijn vrachtwagens? 

* Hoeveel personeel en machines zijn er nodig? Wanneer? 

* Welke produktielijn kan ik voor deze order het beste nemen? 

* Wat gebeurt er als ik het project vit ga besteden? 

* Wat zijn de gevolgen nu de heer Brokkemaker ziek is? 

* Wanneer hebben wij uitzendkrachten nodig? 

* Moeten we dollars gaan kopen of verkopen? 

* Hoeveel uitval had lijn 1 deze week? 

* Hoe ziet mijn liquiditeitsplaatje er nu vit nu taxi 3 niet meer inzetbaar is? 
Met Logistix haalt v een management-tool van de jaren negentig in huis. En wat de prijs 
betreft,die is om te lachen f. 495,--, inclusief b.t.w. 
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gemist heeft, kan op deze pagina’s de schade 
eeft niet over de aandacht van soft- en 
iten te klagen. 


GfA VRAAGBAAK 9 
Heino Kaal 

Onze nieuwe rubriek met tips en trucs rond de populairste pro- 
grammeertaal voor de ST. Initiatiefnemer Heino Kaal gaat van 


start met een programmeurs- en gebruikersvriendelijke in- 
voerroutine. 


1ST-AID 13 
Wim de Winter 

Ook IST Wordplus heeft nog wat tekortkomingen. U kunt er bij- 
voorbeeld niet mee in kolommen afdrukken of een trefwoor- 


eli samenstellen. Dit hulpprogramma helpt u uit de 
nood: 


ST SNEL TERUGVERDIEND F4 
Alfred Konijnenbelt 
START interviewde Wilfried de Graaf, de sales en marketing 


manager van Atari Benelux. Waarom in vredesnaam een 
Atari PC? 


PROGRAMMA'S MET KARAKTER 


Egon Lubbers & Karl Moens 

Als u wat uitgekeken raakt op het standaard let- 
tertype van de ST, vindt u hier alle benodigde in- 
formatie om voortaan uw eigen karaktersets te 
gebruiken. Uiteraard krijgt u alle benodigde 
software (zes listings) kado. Unieke dokumenta- 
tie om altijd bij de hand te hebben. 


PUBLISHING PARTNER 
LEIDT TOT ECHTSCHEIDING 
Henri Kruithof 

Het eerste desktop publishing programma voor de ST is uit. 
Henri Kruithof raakte lyrisch over de mogelijkheden op het 


beeldscherm. De afdrukkwaliteit lijkt echter stiefkindje gewor- 
den te zijn. 
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SPELLBOUND 


UNIVERSELE SPELLINGSCHECKER 29 
Rob Koopman 

Een kompleet verslag van de ontwikkeling van onze eigen spel- 
lingschecker SPELLBOUND. Dit programma werkt met alle 
ons bekende programma’s samen. Het hart van de software 
krijgt u als pseudo Modula listing kado. Wie geen zin heeft om 
zelf te programmeren kan echter ook in onze serie special 
disks terecht. 


ACCLOAD 32 
Wim de Winter 

Heeft u ook altijd net de verkeerde accessoires in uw desktop 
geladen? Dit handige utility maakt het u mogelijk een komplete 
bibliotheek van accessoires aan te leggen en daar op het laatste 
moment zes uit te kiezen. 


ALLES OVER FLOPPIES 

Frank Abbing 

Hoeveel informatie past er nu precies op een floppy? 
Heeft uw diskdrive wel de juiste draaisnelheid? 
Frank Abbing geeft antwoord op alle vragen en voegt een listing 
toe om zelf te experimenteren. 
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ANIMATOR: 


DE KUNST VAN HET VERVORMEN 38 
Robert van der Kroft 

De eerste vijf voorplaten van START werden gemaakt door 
‘Sjors en Sjimmie'’-tekenaar Robert van der Kroft. 

Het tekenfilmpakket Animator was er de oorzaak van dat hij 
zijn wekelijkse gag ee 

bijna vergat. 
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ASTRO CHALLENGE 
Iban van der Wal 


Weer een bewijs voor de snelheid van de 68000. Zelfs een spel in 
BASIC kan te snel zijn voor uw reflexen! 
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MACHINETAAL OP DE ST 
LINE A ROUTINES 42 
Jan Vogel 


Ditmaal een uitgebreid voorbeeldprogramma dat u leert hoe u 
vanuit machinetaal op het scherm kunt tekenen. 


DE MUNITIE VAN DE ST 44 
Frank Abbing 

Wat is toch de betekenis van de bommen die de ST af en toe op 
het scherm toont? Dit artikel vertelt u er alles over. Bovendien 


vindt u op deze pagina’s een programma dat het grafisch geweld 
voortaan omzet in duidelijke tekstinformatie. 


GfA CROSS REFERENCE 48 
Peter Witvoet 

Een lijvig GfA programma gebruikt veel variabele- en procedu- 
renamen. Dit hulpprogramma maakt een overzichtslijst van 


alle namen die in gebruik zijn, zodat doublures voorkomen 
kunnen worden. 


LEZERSSERVICE 50 


[DEMARKT 


De meeste produkten die in deze 
aflevering van ”de markt” aan de 
orde komen, werden geïntroduceerd 
tijdens de PCM-show. Omdat er 
vaak prototypes getoond werden, 
zult u het ditmaal in deze rubriek 
met wat minder illustraties moeten 
doen. 

Overigens viel de publieke belang- 
stelling tijdens de PCM-show tegen. 
Nederland is wat beursmoe. Maar 
ook het aantal premières op de 
beurs was onder de maat: veel 
bezoekers hielden het na een paar 
uur voor gezien. 

Voor ST-liefhebbers waren er twee 
stands van belang: die van Atari en 
die van PDS. In tegenstelling tot de 
rest van de beurs werden hier veel 
nieuwe produkten gelanceerd. De 


interessantste stands van de PCM- : 


show dus. 


MEGA ST VOORLOPIG ZONDER 
BLITTER 


Atari presenteerde haar nieuwe modellen 
(Mega’s en laserprinter) aan het Neder- 
landse publiek. Er was echter ook een 
slecht nieuwtje: als de Mega ST straks bij 
de dealers gedemonstreerd wordt, is die 
computer niet helemaal dezelfde als die er 
te koop is. De eerste maanden zullen 
namelijk alleen Mega ST's zonder blit- 
terchip verkocht worden. Dat is het gevolg 
van produktieproblemen bij General 
Electric, de chipfabriek die de blitters 
maakt. Een groot deel van de eerste serie 
blitterchips werd onlangs door Atari af- 
gekeurd. 

Tot medio augustus, wanneer de tweede 
serie in produktie wordt genomen, zijn 
wereldwijd slechts 2.500 goedgekeurde 
blitters beschikbaar. Deze zullen volgens 
sales- en marketingmanager Wilfried de 
Graaf van Atari worden geplaatst in een 
beperkt aantal Mega ST's die beschik- 
baar worden gesteld aan software-ont- 
wikkelaars, dealers en pers. 


De blitters zullen zo spoedig mogelijk aan 
de kopers worden nageleverd, belooft De 
Graaf. Volgens hem is besloten om de ver- 
koop van Mega ST's niet op te schorten in 
afwachting van de blitters, omdat de mees- 
te belangstelling voor deze nieuwe ma- 
chine komt van de doelgroepen voor wie 
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niet de blitter, maar de grote geheugen- 
kapaciteit de belangrijkste reden tot aan- 
koop is. 

De niewe ROM'’s, waaarop het bestu- 
ringssysteem voor de Mega ST staat, wer- 
ken zowel met als zonder blitter. Dat is 
dan ook tegelijkertijd de enige uitbreiding 
ten opzichte van het ‘oude’ TOS; verder is 
die alleen op een aantal punten verbeterd 
en zijn enkele fouten eruit gehaald. Er is 
dus geen sprake van een andere versie van 
GEM of van aanpassingen op de bes- 
taande GEM-versie. 

In de Mega ST's zullen de nieuwe ROM's 
standaard geleverd worden; later zullen ze 
ook voor de bestaande ST’s beschikbaar 
komen. Een prijs is nog niet bekend. Atari 
belooft wel dat er een verlaagde introduk- 
tieprijs komt. 


NIEUW BĲ PDS 

PDS introduceerde op haar stand de CD- 
ROM van Hitachi. Via een AT kon men 
razendsnel een trefwoord in de bijbel 
terugvinden. Andere toepassingen zijn op 
komst en aan een verbinding met een ST 
wordt gewerkt. 

Heel mooi was het tekentablet van de 
Duitse firma CRP. Naast een degelijk ont- 
werp viel de bijgeleverde software op. Het 
is mogelijk de menubalk op het grafisch 
tablet te projekteren, zodat er volledig bui- 
ten de muis om gewerkt kan worden. 
Uiteraard was de samenwerking met para- 
depaardje Art Director al voor elkaar. 


Z-WORKS uit Gouda, te gast in de PDS 
stand, heeft alle benodigde konversiepro- 
gramma’s ontwikkeld om teksten die op 
een ST geschreven zijn verder te bewerken 
tot professioneel zetwerk. 
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Ook de moeite van het vermelden waard 
was de introduktie van een cursus die PDS 
in samenwerking met de academie van 


beeldende kunsten presenteert. Voor 
f 700,- kunnen ontwerpers die met de 
nieuwste technieken kennis willen maken 
een kursus van 10 ochtenden volgen. 


NIEUW BĲ SOFTPACK 

Metacomco doet een greep naar de macht 
met een uitbreiding op haar Lattice-C 
compiler. Het nieuwe handboek is maar 
liefst 650 pagina’s dik. Menu + en de editor 
werden verbeterd en er zijn meer Unix- 


kommando’s geïmplementeerd. Boven- 
dien zijn als;xtra een debug utility, make 
en een resoirce construction set toege- 
voegd. 

Over updats gesproken: ook Modula 
schijnt een zieuwe versie op de markt te 
brengen. Tenslotte is de GEM-uitvoering 
van VIP ook al weer verbeterd. 

TV Director moet voor de monochrome 
monitor worden wat Film Director voor 
lage resolutie is. Tijdens de beursdagen 
draaide er konstant een demonstratie- 
filmpje. Kennelijk is het mogelijk filmpjes 
van Film Director te konverteren, want we 
zagen het bekende rennende jongetje. Een 
speciaal op monochrome toegesneden 
demo is in de maak. 


Alladin is de Macintosh emulator die alle 
voorgaande emulatoren de loef zal af- 
steken. In ons volgende nummer hopen 
we door te kunnen geven of deze rekla- 
mekreet op waarheid berust. Alladin gaat 
f375.,- kosten. De koper moet zelf achter de 
benodigde Macintosh ROM's aan. Er be- 
staan al public domain schijfjes op Atari- 
formaat die gevuld zijn met Macintosh 
software. 


MAAK EEN MEGA-2 VAN JE ST 
Met een Megabyte geheugen in je 520 ST+ 
of 1040 ST kun je veel doen, maar met de 
K-Switch en een of meer RAM-disks kun 
je soms nog ruimte tekort komen. En als je 
straks gebruik wilt gaan maken van de 
nieuwe Atari laserprinter kom je met een 
Meg ook niet zo ver. 

De firma Weide-Elektronik in het West- 
duitse Hilden heeft er wat op gevonden: 
een 2 Megabyte uitbreiding van het RAM- 
geheugen. De uitbreiding is geschikt voor 
alle huidige ST-modellen (260, 520 en 
1040) en kan zonder solderen worden 
geïnstalleerd. Door gebruik te maken van 
de allernieuwste, superkompakte 1 MBit 
CMOS ramchips omvat de uitbreiding 
slechts een klein printje dat probleemloos 
een plaats vindt in de systeemkast. Het 
extra geheugen is direkt bruikbaar; er is 
geen speciale software nodig. 

Een nadeel is er wel: van de 1 Megabyte 
geheugen die de 520 ST+ en 1040 ‘van 
huis-uit’ al hebben wordt de helft buiten 
gebruik gesteld, omdat de MMU (Memory 
Management Unit, die de interne gang 
van zaken regelt) niet toelaat dat dit 
gedeelte van het geheugen aangesproken 
wordt. Daarom wordt de helft van de 
geheugenchips buiten werking gesteld. 
Van de 3 Megabyte die je in theorie in huis 
hebt, blijft dus 2,5 Meg bruikbaar werk- 
geheugen over. 

De uitbreiding kost f 1299,- inklusief BTW 
en wordt in Nederland geïmporteerd door 
Commedia, le Looiersdwarsstraat 12, 
Amsterdam, telefoon (O 20) 23 17 40. 
Weide-Elektronik heeft nog een noviteit: 
de mathematische co-processor 68881, die 
berekeningen volgens opgave van de fab- 
rikant 200 tot 700 keer sneller uitvoert dan 
de - toch al snelle - 68000-processor. De 
kracht van deze co-processor komt vooral 
tot uiting bij complexe floating point- 
berekeningen en bij CAD (computer- 
ondersteund ontwerpen). 

Om gebruik te maken van deze super- 
rekenaar, die bovenop de Glue-chip kan 
worden geplaatst, moet de programma- 
tuur enigszins aangepast worden. Dat wil 
zeggen: aan de sourcecode hoeft niets te 
worden veranderd, maar wel moet het pro- 
gramma opnieuw worden gecompileerd, 
waarbij enkele extra linkmodules worden 
toegevoegd. Deze modules komen be- 
schikbaar voor een groot aantal com- 


pilers, waaronder Mark Williams en 
Fortran. Standaard wordt een Megamax- 
module geleverd. Verder komt er een spe- 
ciale versie van GfA Basic die de co- 
processor volledig ondersteunt. 

De importeur, Commedia, zal met dist- 
ributeurs van daarvoor in aanmerking 
komende programma’s in overleg treden 
over de mogelijkheid de originele prog- 
rammaschijf te ruilen tegen een versie die 
gebruik maakt van de 68881. De co- 
processor kost f 1099,- inklusief BTW. 


TEKSTVERWERKERS 


Goed nieuws voor notoire tekSTverwer- 
kers en andere letterploeteraars: er zijn 
betere tijden op komst. Na Beckertext, de 
sterk verbeterde opvolger van Textomat, 
komen er nog ten minste drie tekstverwer- 
kers op de markt die zeer de moeite 
waard zijn. 

Allereerst de langverwachte Nederlandse 
versie van Ist Word Plus. Dit programma, 
dat ten opzichte van Ist Word een groot 
aantal verbeteringen en uitbreidingen 
heeft ondergaan (onder meer invoegen 
van plaatjes, spellingcontrole, decimale 
tabulator, etc), is nu volledig Nederlands- 
talig; inklusief een woordenlijst met 44.000 
woorden. Ook het bijgeleverde program- 
ma lst Mail (voor seriebrieven) is vertaald. 
Ist Word Plus wordt _ gedis- 
tribueerd door Atari Benelux en gaat 
f 199,- kosten. 

Wie liever met de Engelse versie werkt: die 
is te krijgen via GST. Let in de winkel wel 
even op wat u koopt: 


A: \DVERLAY 
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Op de Comdex-beurs, die begin juni in 
Atlanta (VS) is gehouden, zijn nog twee 
opmerkelijke tekstprogramma'’s voor de 
ST geïntroduceerd: Microsoft Write en 
WordPerfect. 

Write is bekend onder de naam MS-Word 
voor IBM-PC en compatibles en voor 
Apple Macintosh, en kent daar vele 
enthousiaste gebruikers. Het pakket biedt 
ongekend veel mogelijkheden, die vooral 
veelschrijvers van pas zullen komen. Voor 
de doorsnee brievenschrijver is het mis- 
schien allemaal wel teveel van het goede. 
Write wordt uitgebracht door Atari 
Benelux, die overweegt om op termijn een 
Nederlandstalige versie uit te brengen. 
Verkoopprijs: f 299,-. 

Tenslotte WordPerfect, evenals Microsoft 
Word een goede bekende van de PC. Voor 
de grafisch georiënteerde personal com- 
puters - behalve de ST ook Apple Macin- 
tosh en Commodore Amiga - heeft The 
WordPerfect Company zijn parade- 
paardje opnieuw bewerkt. Volgens woord- 
voerder Ad Rietveld van de Nederlandse 
distributeur, Deltaware in Rotterdam, zijn 
alle funkties zowel door middel van de 
muis als via toetsaanslagen te gebruiken; 
het summum van gebruiksgemak der- 
halve. Dokumenten die met WordPerfect 
op de ST zijn gemaakt kunnen zonder- 
meer worden uitgewisseld met PC-do- 
kumenten (en andersom), slechts een 
enkele funktie zal niet compatibel zijn. 
Voorlopig zal in Nederland de Engelsta- 


lige versie worden geleverd, maar er zijn 
plannen om het pakket - zoals ook met de 
PC-versie is gebeurd - een volledig Neder- 
landse bewerking te geven. In dat geval zal 
de gebruiker zijn ‘oude’ versie kosteloos 
kunnen omruilen voor een Nederlandse. 
Een definitieve prijs was bij het ter perse 
gaan van dit nummer helaas nog niet 
bekend. 


NEDERLANDSE TOS 


Wie wel eens met een scheef oog naar onze 
Oosterburen heeft gekeken omdat die 
door hun ST's in de moerstaal werden 
aangesproken, heeft niet langer reden om 
jaloers te zijn. Wilfred Kilwinger, soft- 
ware-specialist van Atari Benelux, heeft 
een slimmigheidje bedacht om alle 
schermmededelingen van TOS, het bestu- 
ringssysteem, Nederlandstalig te maken. 
Daarvoor hoeven geen nieuwe rommetjes 
geplaatst te worden, en evenmin is het 
noodzakelijk om de volledige TOS (190 K) 
van schijf te laden; er moet alleen een 
klein programmaatje op de systeemschijf 
worden gezet. 

Volgens Kilwinger worden de schermme- 
dedelingen elke keer bij het opstarten van 
het systeem van het ROM-geheugen naar 
het RAM-geheugen gekopieerd. Het pro- 
grammaatje zorgt ervoor dat inplaats van 
de Engelse teksten die in de rommetjes 
staan gebrand, de Nederlandse teksten 
van de systeemschijf worden geladen. 
Het programmaatje, dat vooral van belang 
is voor de introduktie van de ST op de 
basisscholen (maar natuurlijk ook plezie- 
rig voor degenen die moeite houden met 
het Engels), zal binnenkort via het public 
domain gratis beschikbaar worden gesteld 
aan iedereen die erin geinteresseerd is. 


GfA OP ROM-MODULE 

De computer aanzetten en meteen met 
GfA BASIC aan de slag. Dat kan met de 
GfA BASIC ROM-module van Weide- 
Elektronik, die je in de cartridgepoort aan 
de zijkant van de ST steekt. Door op het 
speciale ikoon dat op de desktop ver- 
schijnt te klikken, kom je direkt in GfA 
terecht. 

Alle mogelijkheden van de GfA-inter- 
preter (versie 2.00) zijn ingebouwd; er 
hoeft dus niets meer van disk geladen te 
worden. Bovendien neemt het BASIC 
geen geheugenruimte meer in beslag; dat 
scheelt toch weer meer dan 50 K. De prijs 
is iets hoger dan GfA op diskette: 259 gul- 
den (inklusief handleiding en BTW). De 
module wordt gedistribueerd door Marko, 
Mat. Marisstraat 76, Dordrecht. Daar is 
ook (tegen portokosten) een GfA reference 
card verkrijgbaar, waarop alle komman- 
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do’s op overzichtelijke wijze zijn gegroe- 
peerd. Stuur een aan jezelf geadresseerde 
A5-envelop met f 1,50 aan extra postzegels 
aan bovenstaand adres en de kaart wordt 
per omgaande toegezonden. 


FAST BASIC-GEBRUIKERSGROEP 

Leonard Kater uit Utrecht heeft het initia- 
tief genomen tot oprichting van een FAST 
BASIC gebruikersgroep. Hij vindt dat 
FAST BASIC, dat een aantal voordelen 
heeft boven andere BASIC-varianten op 
de ST, te weinig bekend is in Nederland. 
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Door gezamenlijk in te kopen zou FAST 
BASIC met zo’n 60 gulden korting 
gekocht kunnen worden. Ook kunnen via 
de gebruikersgroep programma's, infor- 
matie, toepassingen en ervaringen worden 
uitgewisseld. Verder wordt gedacht aan 
bijvoorbeeld een eigen Bulletin Board en 
een nieuwsbrief. In de eerste nieuwsbrief 
staat een aantal aanvullingen op de 
handleiding van FAST BASIC. 
Het lidmaatschapsgeld bedraagt voorlo- 
pig f 10,- (met recht op een tientje korting 
op de later vast te stellen definitieve kon- 
tributie); de nieuwsbrief is ook apart ver- 
krijgbaar voor f 5. 

Inlichtingen bij Leonard Kater, Gaa- 
sterland 48, 3524 CB Utrecht, telefoon 
(030) 89 38 17. 


GEM-KOLLEKTIE VOOR DE ST 
Digital Research, de ontwikkelaar van 
GEM, heeft verschillende softwarepakket- 
ten op de markt gebracht die optimaal ge- 
bruik maken van de mogelijkheden van 
dit grafische besturingssysteem. Tot nog 
toe waren die wel voor IBM PC's en com- 
patibles verkrijgbaar, maar niet voor de 
ST - even afgezien van een aantal voorver- 
sies in het illegale kopieercircuit. 

Toen Atari twee jaar geleden de ST aan- 
kondigde, was er sprake van dat deze 
kompleet met de hele GEM-kollektie 
(behalve de desktop ook een tekstverwer- 
ker en een tekenprogramma) geleverd zou 
worden. Zover is het nooit gekomen; 
inplaats van deze programma’s werden Ist 
Word en DB Master One meegeleverd. 
Over de redenen waarom de GEM- 
kollektie niet voor de ST is uitgebracht, 
doen de wildste verhalen de ronde: Digital 
Research en Atari zouden laaiende ruzie 
hebben. Op AtariNet, het eigen bulletin 
board, liet Atari Benelux onlangs weten 
dat er van ruzie geen sprake is, „maar 
zoals gebruikelijk in business, probeert 
Digital Research zijn huid zo duur 
mogelijk te verkopen, terwijl Atari ‘Power 
without the price’ wil. De samenwerking 
op technisch gebied is beter dan ooit.” 
Hoe het ook zij, vast staat dat de komplete 
GEM-kollektie voor de ST alsnog op de 
markt gebracht wordt. ABC Software in 
Bruchem, de Nederlandse vertegenwoor- 
diger van Digital Research, is al druk 
bezig met een volledig Nederlandse versie 
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van al deze programma’s. De Nederlandse 
kollektie omvat GEM Write, GEM Paint, 
GEM Draw, GEM Graph, GEM Ledgers 
en de (al eerder uitgebrachte) eigen pro- 
gramma’s van ABC Software, GEM Cash 
en GEM Viditel. 


GEM DESKTOP PUBLISHER 

Ook het gloednieuwe programma GEM 
Desktop Publisher wordt direkt in het 
Nederlands op de markt gebracht. Het 
gaat hierbij om een pakket voor de 
opmaak van pagina’s, dat de goedkope 
laserprinter van Atari volledig onder- 
steunt. 

Volgens ABC Software is GEM Desktop 
Publisher gespeend van grafisch vakjar- 
gon. Daardoor is het snel en eenvoudig 
door iedereen te gebruiken. Tegelijkertijd 
biedt het pakket de ervaren gebruiker een 
groot aantal professionele opmaak- 
functies, zoals het automatisch om een 
illustratie zetten van tekst, variabele 
spatiëring, invoegen van tekeningen en 
gescande afbeeldingen en het vastleggen 
van stijlen en pagina-indelingen. Boven- 
dien past het programma zich aan bij het 
format van de gebruikte tekstverwerker, 
zodat dokumenten probleemloos ingele- 
zen kunnen worden. 

Een definitieve prijs van dit desktop pu- 
blishing programma is nog niet bekend, 
maar zeker is wel dat die rond de duizend 
gulden zal komen te liggen. 


VIDEO GENLOCK INTERFACE 

Het beeld van de ST opnemen op de video 
kon al via een RGB-interface; nu bestaat 
ook de mogelijkheid videobeelden te men- 
gen met het computerbeeld. Dat kan door 
gebruik te maken van een composite video 
genlock interface, ontwikkeld door 
DPSoft in Hellevoetsluis. 

De interface geeft de ST twee extra aan- 
sluitingen (video-in en video-out). Het 
mixen van beelden gebeurt op ‘chroma- 
level’, dat wil zeggen: je kiest een kleur (uit 
het palet van 512 dat de ST standaard 
biedt), die door de interface wordt vervan- 
gen door het videosignaal, terwijl alle 


andere kleuren ondoorzichtig blijven. Op 
deze manier is het bijvoorbeeld ook 
mogelijk een stukje videobeeld in te voe- 
gen in een tekstblok. Alle bekende teken- 
en animatieprogramma'’s, zoals Art en 
Film Director, kunnen in kombinatie met 
de genlock-interface worden gebruikt. 
Volgens DPSoft, dat binnenkort ook een 
professionele RGB-uitvoering van de 
interface op de markt wil brengen, is de ST 
met de genlock interface een zeer voorde- 
lige kombinatie voor iedereen die tekst, 
tekeningen, logo's, grafieken en animaties 
wil mengen met videobeelden. Daarbij 
wordt gedacht aan reklamebureaus, 
videoklubs en lokale omroepen. 

De genlock-interface wordt - compleet 
met bijbehorende software - geleverd als 
inbouwset voor de ST. Prijs: f 998,- 
exklusief BTW. 

Informatie: DPSoft, Rijksstraatweg 256, 
Hellevoetsluis, telefoon (O 18 83) 1 84 25. 


TWEE HARDWARE 
MS-DOS EMULATORS 


Hij is al vaak beloofd, er is veel over ge- 
praat, maar eindelijk is ‘ie er dan: de 
langverwachte hardware MS-DOS emula- 
tor voor de Atari ST. Vrijwel tegelijkertijd 
zijn er liefst twee op de markt gebracht, elk 
met hun eigen bijzonderheden en kwa- 
liteiten. 

Op de CES-beurs, eind mei in Chicago 
(VS). heeft de firma Robtek - inderdaad, 
dezelfde die eerder een tergend trage 
software-emulator uitbracht onder de 
veelzeggende naam ’MS-DOZ 
(zzzzzzz..…) - het kastje gepresenteerd dat 
de ST compatible met IBM moet ma- 
ken. 

De emulator zou vrijwel alle IBM-soft- 
ware probleemloos draaien. Dat hebben 
we nog niet kunnen kontroleren, maar de 
specifikaties zijn veelbelovend. De emula- 
tor beschikt over een eigen microproces- 
sor (Intel 8086), die zowel op 4,77 als op 8 
Mhz kan draaien. Verder beschikt het 
kastje over een eigen RAM-geheugen van 
512 K, dat- als de computer in de ST-stand 
staat - kan dienen als extra RAM-disk 
voor de Atari. 

De emulator is standaard uitgevoerd met 
een Color Graphics Adaptor (CGA), die 
een oplossend vermogen van 640 of 320 x 
200 pixels geeft; hetzelfde als de ST in 
medium, respectievelijk low resolution- 
stand. Bovendien biedt de emulator nog 
ruimte aan twee uitbreidingskaarten, 
waardoor bijvoorbeeld ook een standaard 
PC-harddisk gebruikt kan worden. 

De Robtek-emulator is vanaf medio juni 


via de meeste Atari-dealers leverbaar. De 
prijs bedraagt bij introduktie f 799, 
(inklusief BTW). 

Robtek komt overigens ook met een eigen 
5 1/4-inch diskdrive op de markt, die 
rechtstreeks op de ST kan worden aange- 
sloten. De drive kan worden omge- 
schakeld tussen 40 tracks (IBM-stand: 360 
K) en 80 tracks (ST-stand: 720 K), zodat je 
voortaan back-ups kunt maken op goed- 
kope floppies. Deze drive gaat f 499,- 
kosten. 2 

Ook de firma World Trade Channel, 
bekend als importeur van het Rhotron 
bussysteem voor de ST, heeft een eigen 
MS-DOS emulator ontwikkeld. Deze kan 
bij de meeste ST-modellen (520 ST, 520 
ST+ en 1040 STF) in systeemkast van de 
ST worden ingebouwd; alleen bij de 260 
ST wordt de elektronika in een eigen 
kastje ondergebracht. 

De emulator kan onafhankelijk van het 
bussysteem worden ingezet. Als diskdrive 
kan de SF 354 of SF 314 gebruikt worden 
(als de software op 3 1/2-inch floppies 
beschikbaar is) of een aan de ST aan- 
gepaste 5 1/4-inch drive. 

Het bijzondere van de WTC-vinding is het 
feit dat die met maar liefst 1 Megabyte 
geheugen wordt geleverd. Aangezien MS- 
DOS daarvan slechts 640 K RAM onder- 
steunt, kan de resterende 384 K worden 
gebruikt als RAM-disk en/of printerspoo- 
ler. Als processor wordt de Intel 8086 ge- 
bruikt, die op een kloksnelheid van 4 Mhz 
draait. Een hogere verwerkingssnelheid (8 
Mhz) kan worden bereikt door de emula- 
tor te kombineren met het Rhotron bussy- 
steem. Tegen meerprijs kan ook een 
snellere processor worden ingebouwd, 
zoals de 80286. 

Ander opmerkelijk feit: een deel van het 
extra geheugen kan ook in de ST-stand als 
RAM-disk voor gegevensopslag worden 
gebruikt. Het gebruik hiervan is echter 
beperkt tot de 1 Megabyte-modellen (520 
ST+ en 1040 STEF), en bovendien kunnen 
er vanuit dit virtueel geheugen geen pro- 
gramma's gerund worden. Het geheugen 
is wel gebufferd: de gegevens worden - bij 
een uitgeschakelde computer - een jaar 
lang vast gehouden. Daardoor is het 
mogelijk om een aantal programma's en 
accessoires bij het opstarten van de com- 
puter vanuit de RAM-disk razendsnel 
naar het werkgeheugen van de ST te 
kopiëren. 

De MS-DOS emulator is medio juni lever- 
baar en gaat in de standaard-uitvoering 
f 900,- (inklusief BTW) kosten. 
Informatie: World Trade Channel in 
Kerkrade, telefoon (0 45) 42 47 77. 


OOOOOOOOOOOOOOOOOOOOOOODOOOOOOO 


W- 


Computers And Musicsystems 


Voorstraat 22, 


Utrecht 


Advisering in gebruik en toepassing 
van computers in de muziek 


De ST - speciaalzaak in Utrecht 


tel. 030 - 314250 


OOOODOODODOOODOOOOOOOOOODOOOOOOOOOODOODOOOEOOOODOODOOODOOODOOOOO 


official dealer voor: 


Akai-professional 
Atari-ST 
Fuji-diskettes 
Philips-monitoren 
Nakajima-printers 
Yahama 


VRAAGBAAK 


GfA BASIC is dermate populair dat 
zelfs sommige verstokte C- en ma- 
chinetaalprogrammeurs zich er toe 
bekeren. Het leek de redaktie dan 
ook een goed idee om een rubriek te 
beginnen waarin gebruikers tips 
kunnen uitwisselen. 

Heeft u een truukje ontdekt dat vol- 
gens u de moeite waard is? 

Stuur het op. Elke tip die het plaat- 
sen waard is, wordt gehonoreerd 
met een START-diskette. 

GfA VRAAGBAAK is ook de ru- 
briek waarin u vragen kunt stellen. 
”Ik heb de bijgesloten routine ge- 
schreven. De GfA compiler accep- 
teert hem echter niet. Wie weet 
een oplossing?” 

”Hoe laat je de cursor knip- 
peren?” 

”Hoe kun je zien van welke drive 
GfA-BASIC geladen werd?” 

Onze ‘vraagbaak in levende lijve’ is 
Heino Kaal, die niet zal rusten voor 
hij de oplossingen voor uw proble- 
men heeft gevonden. 


@ PERFEKTE INVOER 


Omdat er de eerste aflevering van een 
nieuwe rubriek natuurlijk nog geen post te 
beantwoorden is, heb ik zelf maar het 
voortouw genomen. U krijgt een ge- 
bruiksvriendelijke invoerroutine kado. 
Misschien denkt u: “Waar heb ik een in- 
voerroutine voor nodig; GfA heeft toch 
diverse invoer-funkties?” In dat geval zal 
ik u even uit de droom helpen. Laten we 
om te beginnen ’Input' eens bekijken: 
Input “Geef uw naam…: ’;NmS$ 
Als u dit in uw programma gebruikt, komt 
er een vraagteken op het scherm. In veel 
gevallen is dat nogal hinderlijk. In ons 
voorbeeld is “Geef uw naam” tenslotte he- 
lemaal geen vraag! 
Gelukkig is dit op te lossen door de 
en te vervangen door een 
omma: 
Input “Geef uw naam …: ”‚Nm$ 
Opgelost? Dat vraagteken wel, maar stel 
dat u in een ander geval een invoer van 
exakt tien numerieke tekens (cijfers) wilt. 
Hoe bepaal je dan de grens van tien en de 
kontrole op cijfers? En hoe gaat het als je 
komma's of stuurtekens als invoer wilt ge- 
bruiken? Het gewone ‘Input’ is voor dit 
aen toepassingen volstrekt onvoldoen- 
e. 
Er is een instruktie die meer mogelijkhe- 
den biedt: Form Input. Tik listing 1 in en 
laten we de routine eens gebruiken. Voer 
bijvoorbeeld uw naam in en druk op ’re- 
turn’. U ziet dat de invoer niet geaccep- 
teerd wordt. Dat komt door de ’Val’- 


instruktie achter 'Until’. Deze routine ver- 
werkt alleen getallen. 

Tik nu eens de cijfers 12345678901. Van de 
eerste ’1’ tot de °O’ gaat alles goed. De twee- 
de ’l’ wordt echter niet geslikt. Dat komt 
omdat we de lengte gedefinieerd hebben 
met de opdracht ‘Form Input 10,Iv$’. 
Druk op ‘return’ en volg de scherm- 
instruktie op. Nu is er van uw input alleen 
nog maar 34567890 te zien en Iv$ is leeg. 
Delen de ’2’ zijn verdwenen. Dat is lastig 
als u iets wilt verbeteren. U moet dan toch 
kunnen zien wat uw oude invoer 
geweest is. 

Tik achter "Verbeter uw input … ” de cijfers 
12345. U zult zien dat er, elke keer als de 
cursor naar rechts gaat, een oud cijfer 
wordt weggehaald. Dat betekent dat er bij 
het verbeteren van fouten niet van de vori- 
ge invoer geprofiteerd kan worden. Kort- 
om: ook 'Form Input’ laat te wensen 
over. 


Gelukkig heeft Frank Ostrowski (de ont- 
werper van GfA-BASIC en -compiler) nog 
meer voor ons in petto. Nadat u op een 
toets heeft gedrukt, zijn we toe aan deze 
laatste instruktie: 

Form Input 10 As Iv$ 

En kijk: zonder dat we een aparte print- 
instruktie hebben gebruikt, komt Iv$ op 
uw scherm met de cursor op de eerste posi- 
tie. Toen ik dit kommando voor de eerste 
maal zag, was ik in de zevende hemel, 
maar dat duurde maar even. Wat is er nu 
weer mis met deze in opzet zeer nuttige 
instruktie? 

Tik maar eens 678901, dan ziet u wat ik be- 
doel. Over oude karakters heen tikken is 
onmogelijk. Je kunt de insert-toets in blij- 
ven drukken, maar het helpt niets. Insert 
kan niet uitgeschakeld worden. Er moet 
na tien karakters gewist worden voor het 
kommando weer karakters accepteert. 


® INSTELBARE PARAMETERS 
Het zou prettig zijn als de volmaakte in- 
voerroutine standaard in GfA-BASIC zou 
zitten, maar er moet natuurlijk voor ons 
ook nog wat te programmeren over- 
blijven. 

In de hoop u met de voorbeelden van het 
nut van de routine overtuigd te hebben, 
vraag ik uw aandacht voor listing 2. 

Het programma begint met een paar 
variabelen te definiëren. De instruktie die 
daarop volgt is degene die u voortaan in 
uw eigen programma's zult gebruiken om 
de invoerroutine aan te roepen: 
@&_Invoer(20,14,25,1,0,0,0,1) 

Het’ @ ’ (apestaartje) is een afkorting van 
’Gosub’. De getallen tussen haken worden 
meegenomen naar de Procedure Invoer(). 
Zoek hem eens op in de listing. U ziet daar 
variabelen tussen de haken staan. Deze 
variabelen krijgen de waarden die we bij 
de aanroep (de ’Gosub’) hebben op- 
gegeven: 

De variabele Kolom’ krijgt dus de waarde 
’20’ en ’Regel’ de waarde '14’. Hierdoor zet 
de routine de cursor op regel 14, kolom 20. 


U kunt dus zelf bepalen WAAR de invoer- 
routine zijn werk moet verrichten. 
De derde variabele, I-lengte, wordt gevuld 
met het getal 25’. Hierdoor accepteert de 
invoerroutine “slechts” 25 toetsaanslagen. 
De maximale lengte die opgegeven mag 
worden is 32767 karakters. Wie daar nog 
niet genoeg aan heeft mag het zeggen. 
De resterende variabelen zijn ‘vlaggen’. 
Hierbij geldt: 0’ is UIT en ’1’ is AAN. 
De eerste vlag, l-leeg, staat in het voor- 
beeld AAN (1). Dit betekent dat de gebrui- 
ker verplicht is om iets in te voeren. 
Zou de vlag UIT (0) staan, dan accepteert 
de routine een lege invoer (alleen op ’re- 
turn’ drukken). 
De tweede vlag, I-cijfer, staat in het voor- 
beeld UIT (0). Alle tekens van het toetsen- 
bord mogen daardoor ingevoerd worden. 
Run het programma maar eens met een 
gehesen vlag (1). U zult zien dat de routine 
plots alleen nog maar van cijfers ge- 
diend is. 
De derde vlag, I-upper, bepaalt of de in- 
voer met grote en kleine letters of alleen 
met grote letters op het scherm gezet zal 
worden. 
I-upper=1: invoer met grote of kleine 
letters. 
I-upper=0: invoer alleen maar met grote 
letters. 
De truuk die het programma hier toepast 
is erg waardevol. Stel dat de gebruiker van 
uw programma de ’J toets in moet druk- 
ken. Dit kunt u op verschillende manieren 
oplossen, maar de kortste methode is: 
Repeat 

Wacht$=Upper$(Inkey$) 
Until Wacht$="J" or Wacht$="N" 
De gebruiker hoeft hierdoor zelf niet op te 
letten of de ‘capslock’ toets op grote of op 
kleine letters staat. 
Op de zevende positie vinden we I-spatie, 
de vierde vlag. Hier geldt de volgende 
afspraak: 
I-spatie=0: de lengte van de invoer wordt 
bepaald door het aantal ingetikte karak- 
ters. De gebruiker kan dus onder het 
maximum van I-lengte blijven. 
I-spatie=1: de lengte van de invoer is altijd 
gelijk aan het maximum. Het programma 
voegt eventueel spaties toe om dit te 
bereiken. 
De laatste vlag (variable Esc-toets) bepaalt 
of de Esc-toets gebruikt kan worden. 
Esc-toets=1: als u tijdens de invoer op de 
Esc toets drukt, wordt de routine onder- 
broken, de string leeg gemaakt en de varia- 
ble Ctrl op '1' gezet. Bij terugkeer uit de in- 
voerroutine kan dus onderzocht worden 
hoe de gebruiker hem verlaten heeft. 
Esc-toets=0: de Esc-toets is niet te 
gebruiken. 
De routine is niet alleen erg gemakkelijk 
voor de programmeur, maar ook voor de 
gebruiker. Die kan ’backspace’, 'undo’, 'in- 
sert en de cursorpijltjes gebruiken om zijn 
ingevoerde tekst te korrigeren. 
Ik hoop dat u evenveel plezier van dit 
hulpprogramma heeft als ik. 


Wie tot slot nog antwoord op de vragen uit 
de inleiding zou willen hebben: u zet de 
PR ii uit met ’Void Xbios 
(21,3). 

’X=Gemdos(25)’ bepaalt van welke drive 
u GfA-BASIC heeft geladen. Als X na de 
aanroep ’0’ bevat, was het drive A, '1’ be- 
tekent drive B, enz. 

Tot de volgende keer. En vergeet uw tips 
niet op te sturen. 

U kunt het volgende adres gebruiken: 
START REDAKTIE 

GfA-rubriek 

M. Gijzenburg 14 

2907 HG Capelle a/d IJssel 


LISTING 1 


Repeat e 
Print Bt(2,2)i Invoer numeriek „..t 7 
Form Input 10,Ivé 
Until Val(lv$)er0 Ee 
GTaets(2,4) 
Repeat , 
Print At(2,2)s Verbeter uw input …s ' = 
zits At (24,2): 
Form Input 10,1v$ 
Until Val(lvi)s20 
ËToets(2,4) 
Repeat. 
Print At(2,4); "Probeer het nog eens: ”; 
Form Input 10 As Ivé À 
Until Valflv$)450 
Print At(2,6); "Laatste invoer is „…t Ss Iv$ 
Taets{(2,8) 
Edit 5 
Procedure Toets(Ko,Re) 
Print At(Ka,Re);*Druk op een toets" 
Void Inp{2) 
Print At(Ko,Re);Spaces (17) 
Return 


LISTING2 


Esc$=Chr$(27) 


Ca$=Esc$t"e" ! cursor aan. 


Cu$=Esc$t"f" É uit. 
Raf=Esc$t"p" 1 rvs aan. 
Ru$=Esc$t"q" 8 uit. 


Print At(46,14);"Test invoer :" 
Elnvoer(19,14,25,1,0,0,0,1) 
Print At(1,1);"Input = ";Invoers’'*"L => 


engte input = ";Len(Invoer$) 
‘ Kolom = Kolom waar de cursor op => 
een regel komt te staan. 
“ Regel = Regel waar de cursor ko => 
mt te staan, 

I_lengte Input lengte 


I_leeg =O Een lege Input is wel => 
toegestaan. 


" 
_ 


lege Input is nie =Ò 
t toegestaan. 


I cijfer = Ò Input alfa-nummerriek. 
= 1 nummeriek. 
I_upper = 0 Input groot/klein. 
i = 1 grote letters. 
I spatie = 0 Input niet opgevult m => 


et spatie's, 


_ 


wel 
Ò Geen actie op Esc toets. 
1 Wel actie. 


‘ Esc_taets 


‘ Het invoer resultaat komt in de var => 
iable Invoer$ te staan. 
Procedure Invoer (Kolom,Regel,l lengte 
‚I_leeg,l_cijfer,l_upper,l _spatie,Esc 
_taets) 

Hidem 

Local Hulp$,C toets,Key,Insert,Re t => 
urn,I_tot,C_pos 


ni 
Red 


“_HKulp$ = begrijpelijk, 

‘ C_toets = cursor toetsen (de 4 => 
pijltjes onder Help en Undo) 

‘ Key = controlle of de inser => 


t, backspace, of een cursor toets is => 
ingetoetst. 


Insert = wel of niet actief. 
“_Re_turn = de ingedrukte toets i => 
s de return toets. 
I_tot = Invoer totaal (einde => 
(I_lengte) berijkt?). 
4 C_pos = positie waar de curso => 


r zich bevindt. 


Clr Invoert,Ctr1 
C_pos=1 
Invaer$=Spaces (1 lengte) 
Repeat 
Print At(Kolomt+C_pos,Regel);Ca$; 
Repeat 
Hulp$=Inkey$ 
Until Len (Hulp$) 
Print Cu$; 
Key=Asc(Mid$(Hulp$,2,1)) 
If Esc_toets And Hulp$=Esc$ 
Ctrl=1 
Clr Invoer$ 
Goto I einde 
Endif 
If I_tot 
If Asc(Hulp$)=127 And C_pos<=l_ => 
tot ! delete toets 
Dec I tot 
Mid$(Invoer$,C pos)=Mid$(Invo => 
er$,C_postij+" * 
Print At(Kolomt+C_pos,Regel);M => 
id$(Invoer$,C_pos); 
Endif 
If Key=82 And Insert=0 => 
! Insert actief. 
Insert=1 
Clr Key 
Endif 
If Key=82 And Insert=| => 
! Insert niet actief. 
Clr Insert 
Endif 
If Key=97 => 
! Undo toets 
Print At(Kolomtl,Regel);Space => 
$(I lengte); 
Invoer$=Spaces{(1 lengte) 
Clr I_tot,‚Insert 
C_pas=! 
Endif 
If Key=72 Or Key=75 Or Key=77 0 => 
r Key=80 
C_toets=1 
If Key=75 =) 
t_ cursor links 
Dec C_pos 
If C_posíl 
C_pos=1 
Endif 
Endif 
If Key=77 And C_posí=I tot =} 
Ll ersr rechts 
Inc C_pas 
If C_pos>I_ lengte Or C_pos> => 
I_tot 
@Inv_sp 
Endif 
Endif 
If Key=72 => 
1 ersr omhoog 
C_pos=1 
Endif 
If Key=80 => 
ersr omlaag 
@Inv_sp 
Clr C_toets 
Endif 
Endif 
Endif 
If (Hulp$í” * Or Hulp$>Chr$(122)) => 
And Not (Hulp$=Chr$(8) Or Hulp$=Chr$ => 
(135) 


Goto 1 einde 
Endif 


If Hulp$=Chr$(8) Or Hulp$=Chr$(13 => 
) ! Backspace of return. 
If Hulp$=Chr${(8) And C_pos>1 => 
t al iets ingevoerd ? 
If C_toets 
Dec C_pos 


Mid$(Invoer$,C_pos)=Mid$(In => 
voer$,C_posti)+" * 

Print At (Kolom+C pos,Regel) => 
sMid$(Invoer$,C pos); 

Else 
If C_pos{>I_tat 
Dec C_pos 

Endif 

Mid$(Invoer$,C_pos,C_pos)=" " 

Print At(KolomtC _pos,Regel) => 


Endif 
Dec I_tot 
Else 
If Hulp$=Chr$(15) 
If I_tot=0 And 1 _leeg=l => 
! Geen lege input toegestaan. 
Out 2,7 
Else 
Re_turn={ =Ò 
! Return toets 
Endif 
Endif 
Endif 
Goto I einde 
Else 
If I_upper 
Hulp$=Upper$ (Hulp$) 
Endif 
If C_pos<l lengte And Len(Hulp$) 
If I cijfer And Instr("012345 =) 
6789-,",Hulp$)=0 
Out 2,7 
Goto 1 einde 
Endif 
Endif 
Endif 
If Insert And C_posíl tot => 
! insert is actief 
Mid$(Invoer$,C_pos)=Hulp$+Mid$( =ò 
Invoer$,C_pos,1_lengte) 
Print At(Kolom+C_pos,Regel)sMid => 
$(Invoer$,C_pos); 
Else 
Mid$(Invoer$,C_pos,C_pos)=Hulp$ 
Print At(KolomtC _pos,Regel);Mid => 
$(Invoer$,C_pos,1); 
Endif 
Inc C_pos 
Inc I_tot 
If I_tot>I lengte 
I_tot=I_lengte 


Endif 

If C_pos>I lengte 
C_pos=I_tot 

Endif 

I_einde: 


Until Re_turn Or Ctrl 
If I_spatie=0 
While Right$(Invoer$,i)=" * => 
! Spatie’'s achter input weghalen. 
Invoer$=Left$(Invoer$,Len(Invoe => 
r$)-1) 
Wend 
Endif 
Showm 
Return 
Procedure Inv_sp 
J=Len (Invoer) 
Repeat 
If Instr (J,Invaers," *) 
Dec J 
Endif 
Until Mid$(Invoer$,J,1) <>" * Or J=0 
If J=l lengte 
C_pos=) 
Else 
C_pas=J+1 
Endif 
I_tot=C_pos-1 
Return 


vovvovoooooovvvooooo DN ATARI Official PC-Dealers eeso 


Postbus 6 - 3470 CA Kamerik (Utr. bij Woerden) 


Tel. 03481-2124* - Burg. de Kockstraat 1 1 - Kamerik 


Voor wie zich niet kan veroorloven 
om achter te lopen.” 


Commedia 


Open wo t/m za 10-6, do tot 9 vur 


Eerste Looiersdwarsstraat 12 
1016 VM Amsterdam Tel.020-23 1740 


Steeds meer Atari computers worden op basisscholen geplaatst. Daardoor is er 
een behoefte ontstaan aan educatieve software. Atari wil door middel van deze 
wedstrijd een aantal goede educatie programma’s voor de ST computers 
beschikbaar krijgen. Doe dus mee en win één van de schitterende prijzen. 


1° PRIJS: MEGA ST4 met SC1224 Kleur-Monitor 
2° PRIJS: MEGA ST2 met SC1224 Kleur-Monitor 
3° PRIJS: 1040STf met SC1224 Kleur-Monitor 


EXTRA PRIJZE 
N Vv 
VERLOTING benen 
d SCHOLEN: 
PRt JS: ko hon cia 


ge PRI JS: vaas deon de 
3e PRI JS: sas, a than 


1° pRIJS: Laser-Printer SLM 
Pi PRIJS: Harddisk SH204 
pf PRIJS: Kleuren-Monitor S 


ALTIJD PRIJS! 


Elke deelnemer wint in ieder geval een body-warmer, een T-shirt of een sporttas. 


C1224 


ms 
EEE ET KE GE) KE) AE AE LE MEN BE EE 
EN En E 


Vaker en vaker worden de ATARI door de muisbesturing, hebben de doorslag 


ST-Computers op scholen ingezet. In Utrecht gegeven. 

bijvoorbeeld worden op alle 120 basisscholen De Stichting Nederlandse Schoolradio zal in 

de ATARI 1040 STf-kleurensets geplaatst. samenwerking met de VARA en AVRO via 

De Inspecteur voor het Onderwijs heeft in over- _ radio- en televisieprogramma’s de ATARI ST als 
leg met vele deskundigen en instanties, deze schoolcomputer begeleiden. 

keus bepaald. Met name het grote geheugen, De behoefte naar educatieve software ont- 

de grafische beeldschermopbouw, de lage staat. Maak een kans op één van de drie 

prijs maar vooral de gebruiksvriendelijkheid onderstaande hoofdprijzen. 

B Alleen programma’s met een edukatieve Groep maken d.m.v. een extra verloting kans 
waarde kunnen meedingen in de wedstrijd. op één van de speciale Club-Prijzen. 

MB Alleen programma’s welke door ATARI MB Programma’s ontwikkelt in samenwerking 
worden geaccepteerd dingen mee in de met, of door een school maken d.m.v. een 
wedstrijd. extra verloting kans op één van de speciale 

B Programma's welke door ATARI niet kunnen School-Prijzen. 
worden geaccepteerd, zullen begeleid met B Programma's worden door een deskundige 
een standaardbrief aan de inzender worden jury beoordeeld op de volgende 
geretourneerd. eigenschappen: 

MB Alleen programma’s op een diskette mogen - Edukatieve waarde 
worden ingezonden, vóór de sluitingsdatum - Bedieningsgemak (Muis) 
van Ì september 1987 aan: - Originaliteit 

ATARI (Benelux) BV - Uitvoering 
Postbus 70 - Documentatie 
4130 EB Vianen __ B ATARI werknemers en hun familieleden zijn 

MB Alle rechten op de hoofdprijs-programma'’s uitgesloten van deelname. 
alsmede de winnende school- en club- MB Hetbesluit van de jury is definitief en over de 
programma’s worden eigendom van ATARI. uitslag kan niet gecorrespondeerd worden. 

B Programma’s ontwikkeld in clubverband door B Deze wedstrijd is nietig indien belemmerd 
regionale clubs, b.v. de Stichting ATARI door wettelijke maatregelen. 


Gebruikers of van de HCC-ATARI Gebruikers 


HOOFDPRIJZEN: 2prus meen sro ret sc1aaa kleu Monro. 
3e PRIJS: 1040STf met SC1224 Kleur-Monitor 
CLUBPRIJZEN: rs: ooo sos 
3e PRIJS: Kleuren-Monitor SC1224 
SCHOOLPRIJZEN: scrrus: vososrr cr suuzs z/w.merter 


3e PRIJS: 520STm met SM125 Z/W-Monitor 


TOTAAL f 20.000,-AAN PRIJZEN! 


ARD 


1ST-Word is de meest gebruikte tekst- 
verwerker voor de ST. Bijna alle teksten 
voor START worden als .DOC-be- 
standen aangeleverd. Reikhalzend werd 
dan ook uitgezien naar de opvolger: 
1ST-Wordplus. Wat voor nieuwe opties 
zouden aan het pakket toegevoegd 
worden? 

Nu de (semi-) definitieve versies in 
omloop zijn gekomen, is het antwoord 
op die vraag bekend. Maar naast de vele 
mogelijkheden zijn ook de beperkingen 
zichtbaar geworden. Zo is het bijvoor- 
beeld niet mogelijk om een tekst in twee 
kolommen af te drukken. Ook een optie 
om automatisch een trefwoordenregis- 
ter te maken, is pijnlijk afwezig. Onze 
vaste programmeur Wim de Winter 
besloot zich hier niet bij neer te leggen. 
IST-Aid, het resultaat van zijn werk- 
zaamheden, vult de lacunes op en heeft 
zelfs nog twee extra mogelijkheden. 


GEBRUIK 

Als u het programma ingevoerd en gestart 
heeft, verschijnt het volgende menu: 

1. ASCII-- > IST-Word 

2. IST-Word-- > ASCII 

3. IST-Word in twee kolommen 

4. 1IST-Word indexen 


on ander getal breekt het programma 
a 


Laten we de opties van 1ST-Aid eens 
nader bekijken. 


1. KONVERSIE NAAR 1ST- 
WORD 


Wie meerdere tekstverwerkers in gebruik 
heeft, zal tekstbestanden graag uit willen 
kunnen wisselen. 

IST-Word kan een ASCII-file weliswaar 
lezen, maar niet formatteren. Voor het 
einde van elke regel verwacht het pro- 
gramma namelijk een stuurkode, die het 
regeleinde onderscheidt van het einde van 
een alinea. Iets dergelijks geldt voor de 
spaties. 

IST-Aid komt u met zijn eerste optie te 
hulp. Het programma vraagt naar de 
naam van een ASCII-tekstbestand en zet 
dat om naar een bestand in 1ST-Word for- 
maat met de extensie „DOC. 

In de praktijk zal blijken, dat IST-Aid 
vaak teveel alinea's samenvoegt. U zult 
dus met de hand aanpassingen moeten 
maken. Alle mogelijkheden van 1ST- 
Word staan nu echter ter beschikking om 
de tekst het juiste aanzien te geven. 
Voor permanente alineascheiding in IST- 
Word: zet de cursor op de eerste letter van 
de nieuwe alinea. Druk daarna op 
<backspace) tot er geen spaties meer voor 
de eerste letter staan en geef een <return>. 
Blijven er wel een of meer spaties staan, 
dan zullen de twee alinea's bij de eerste 
reformat (F10) weer worden samenge- 
voegd. 


2. KONVERSIE NAAR ASCII 


Nu de andere kant van het verhaal. IST- 
Word kan teksten in ASCII-formaat weg- 


schrijven, maar doet dit door alle kodes 
die niet de standaard volgen (alle karak- 
ters van 128 tot 255) gewoon weg te 
laten. 

Alle &-s, è-s, ü-s en g-s worden tijdens dit 
proces verwijderd, wat vooral Duitse en 
Franse teksten onleesbaar maakt. Maar 
ook het Nederlands blijft niet ongeschon- 
den. Wat te denken van ’cofficint’ 
(coëfficiënt)? 

Ook schijnt het soms nodig te zijn om 
regels niet met <CR><LF> af te sluiten, 
maar met alleen <CR>. 

Optie twee biedt een oplossing voor deze 
problemen. 1ST-Aid vraagt naar een IST- 
Word .DOC-bestand en zal dat omzetten 
naar een bestand met alleen ASCII- 
karakters. 


Allereerst wordt echter de konversietabel 
getoond, met de mogelijkheid deze te wij- 
zigen. In het mini-venster staan in de lin- 
kerkolom de tekens die in het DOC- 
bestand voor zouden kunnen komen en in 
de rechterkolom de vertalingen. Het ape- 
staartje '®’ houdt in dat het teken niet wordt 
vertaald, maar overgeslagen (behalve 
natuurlijk bij het apestaartje zelf). Door 
op een teken in de linkerkolom te klikken, 
kan een nieuwe vertaling (maximaal zes 
tekens) worden opgegeven. Antwoordt u 
hier slechts met <return>, dan verandert de 
vertaling in '€’, 

Door de op de pijltjes te klikken, komt een 
ander deel van de tekenset in beeld. Als u 
tevreden over de konversietabel bent, kunt 
u hem saven en later weer gebruiken. De 
tabel wordt weggeschreven onder de naam 
IST-AID.TRN. Met een klik op 'EXIT’ 
begint de vertaling. 


3. TWEE KOLOMMEN 
AFDRUK 


Dan de mogelijkheid om een tekst in twee 
kolommen af te drukken. Op het moment 
dat u de tekst in 1ST-Word schrijft, moet u 
al rekening houden met de kolombreedte. 
Optimaal is 0.9 maal de halve regellengte 
van de printer. Voor een standaard 80 
kolomsprinter is dat 35 of 36 tekens. 
Wie een oud bestand in twee kolommen 
wil afdrukken, heeft het echter niet moei- 
lijk. Inladen, de “liniaal” korter maken en 
een tijdje op <F10> drukken volstaat. 
Tijdens de konversie blijven alle tekststij- 
len (vet, kursief …) behouden. Met harde 
en _ voorwaardelijke paginascheiding 
wordt rekening gehouden en ook plaatjes 
blijven mogelijk. Alleen in voetnoten is 
niet voorzien. 

Het programma vraagt om een IST-Word 
DOC-bestand en maakt onder dezelfde 
naam een bestand aan met de extensie 
„CLM. 

Vervolgens worden de printerbreedte en 
de tussenscheidingsbreedte gevraagd. 
Antwoord met <return> voor de stan- 
daardwaardes. Na wat berekeningen (die 
grafisch op het scherm worden onder- 
steund), zal het CLM-bestand worden 
aangemaakt. U kunt dit hierna via IST- 
Word(+) afdrukken. Zet hierbij de linker 
kantlijn wat kleiner. 


4. TREFWOORDENREGISTER 


De woorden die u in het trefwoordenregis- 
ter wilt opnemen (de entries), moet u in de 
tekst in de lichte stijl zetten. 

IST-Aid stelt daarna in twee slagen de 
index samen. De eerste slag verzamelt en 
alfabetiseert alle entries; de tweede slag 
zoekt alle plaatsen waar een entry voor- 
komt en voegt het bladzijdenummer aan 
de index toe. 


AANWIJZINGEN BĲ DE LISTING 


Om ruimte te winnen is de listing in ko- 
lommen afgedrukt. Wanneer u in de 
listing het symbool => tegenkomt, ís 


sprake van een afgebroken regel. 

U moet het symbool => zelf niet intik- 
ken en ook niet op RETURN drukken; 
maar gewoon verder gaan met de vol- 
gende regel. 


Het is voldoende om een entry eenmaal 
licht te markeren. IST-Aid kijkt in de 
tweede slag naar het woord en niet langer 
naar de stijl. 

Het markeren hoeft overigens niet per se 
de eerste maal dat het woord in de tekst 
voorkomt te gebeuren. 

Iedere entry kan meer dan een woord lang 
Zijn, maar mag niet meer dan 25 tekens 
bevatten (inklusief spaties). De entry moet 
op een regel staan. Het indexen negeert de 
spaties en zoekt wel over regeleindes, ook 
al is een entry afgebroken (hyphenation in 
IST-Word-Plus). 

Het programma vraagt of de entry-mar- 
kering verwijderd moet worden. Default- 
waarde is hier ‘nee’ (return). Toetst u ’j’ of 
‘y' in, dan wordt in het origineel ieder 
woord weer in zwart weergegeven. Dit is de 
enige optie in het hele pakket die de ori- 
ginele file verandert! 


DUBBELE ST 

Bij het ontwikkelen van dit pakket heb ik 
intensief gebruik gemaakt van de process- 
switcher van Kuma (K-SWITCH). Zoals u 
misschien weet, verdeelt die de ST in twee 
helften. In de ene stond permanent 
Wordplus, in de andere op RAM-disk 
afwisselend GfA-Basic en een diskmo- 
nitor. Zo kon ik razendsnel met Wordplus 
een bestand maken en via de diskmonitor 
zien hoe het bestand opgeslagen werd. Op 
deze manier is de stuurkode van Wordplus 
‘gekraakt’. 


De belangrijkste kodes zijn: 
IE OA OD einde regel 


OAOD einde alinea 

IE rekbare spatie 

IC opvulling van de ‘rek’ 

IF formatteringsregel, bijv, liniaal 
of plaatje 

OB nn voorwaardelijke paginaschei- 


ding 
1B (80+s) stijl verandering (s= bitmas- 
ker van stijlen) 

De eerste drie opties van het pakket berus- 
ten op goochelen met deze stuurkodes. 
Alleen de uitwerking pakt wat ingewik- 
keld uit. Telkens worden er een paar regels 
gelezen, bewerkt en naar het nieuwe be- 
stand geschreven. De index-optie verschilt 
in die zin, dat er nauwelijks uit het ori- 
ginele bestand gekopieerd wordt. 

Ten behoeve van een grote verwer- 
kingssnelheid wordt het hele bestand in 
het geheugen geladen. Het verzamelen 
van de entries komt dan neer op het 
zoeken naar escapes ($1B), gevolgd door 
een getal waarin het tweede bit gezet is 
(lichte stijl). In de tweede slag wordt elk 
woord vergeleken met de eerste drie letters 
van elke entry. Komen die overeen, dan 
wordt ook de rest van het woord getest. 
Spaties, regeleindes en streepjes worden 
niet in de vergelijking betrokken. 


Wim de Winter 


13 


tT ORRRERKRRERKEEN EERE ERE ER ERE ENEN EEE 
“+ Programma ist Aid * 
“+ Doel Hulp bij tst-wordt * 
“+ Auteur Wim de Winter * 
TORNRRKERNKERERR EERE K ERK ENEN EEE 


EMessages 

Elnit 

Do 
Tb$=Chr$(&H9) t tab 
Lf$=Chr$(&HA) Ll line feed 
Ff$=Chr$(&HC) ! form feed 
Cr$=Chr$ (&HD) ! carriage return 
Cpbé$=Chr$ (&HE) t conditional p => 

age break 
Hyp$=Chr$(&H19) ! afbreekstreepje 
Esc$=Chr${(&HIB) ! escape 
Spc$=Chr$(&HIC) ! opvulspatie 
Ind$=Chr$(&HID) t indent 
Sft$=Chr$(&HIE) ! soft space/cr => 

1f indicator 
Lay$=Chr$ (&HIF) 
indicator 


layout record => 


@Menu 

On KeuzeX Gosub Ascii to istword,is => 
tword_to_ascii,Kolommen, Index 

Print #2 

Close 

Clear 

@Messages 
Loop 


Procedure Kolommen 
Restyle!=Ffalse 
No _more_layout!=false 
Source _page_nr%=1 
Dest_page_nri=! 
@Open_filest",DOC",".CLM") 
@Pagelength 
eFile header 
EDraw_ page 
@Da_ columns 

Return 


Procedure Do_ columns 
Dim Line layout _pA(2tNr of lines4), => 
Soft page _alert%{(2#Nr of lines4ti) 
Dim Layout line$(100) 
Do 
If LineXc=Nr_of _lines4 
Line 161,195tLine%,189,195tLine/ 
Else 
… Line 286,195-Nr of lines4tLine => 
‚314,195-Nr_of _lines%tLinez 
Endif 
Inc Line% 
If Line%=Nr_of _lines% 
Inc Source _page_nr% 
Endif 
Lehr$=Left$(Line$, 1) 
If LineX>2&Nr of linesX Or Lchr$= = 
Ff$ Or (Lchr$=Cpb$ And Asc(Mid$(Line$ => 
„2, 1)) >&H73) 
EMake new page 
If Lchr$=Ff$ 
Let Line$=Mid$(Line$,2) 
Endif 
If Lchr$=Cpb$ 
Let Line$=Mid$(Line$, 3) 
Endif 
Endif 
If Mid$(Line$,l,1)=Cpb$ And Asc(M => 
id$(Line$,2,1)) <=&H73 
Soft page alert%(LineX)=Asc(Mid => 
$(Line$,2,1))-&H10 
Let Line$=Mid$(Line$,5) 
Endif 
Let Line adress4=Varptr (Lines) 
EMake_ space 
If Instr (Line$,Hyp$)>0 
Poke Line adress4tInstr(Line$,H => 
yp$)-1,45 
Endif 
If Restyle! 
ERestyle 
Endif 
If Instr {(Line$,Esc$)>0 
@Styles 
Endif 
Pag$(Line%)=Line$ 
Exit If Eof (#1) 
Repeat 
Line Input #1,Line$ 
@Select line 
Until Left$(Line$,i)<>Lay$ Or Eof => 
#1) 
Loop 
Inc Line4 
êMake new page 
Return 


Procedure Justify{(X%) 
Local CX, 1% 


C=0 
For I%=i To Len(Pag$(X%)) 
Char$=Mid$(Pag${(X%),I4,1) 
If Char$>Chr$(31) 
Inc C% 
Else 
If Char$=Esc$ 
Dec CX 
Endif 
Endif 
Next I% 
Let Pag$(X{)=Pag$ (XX) +Space$(Max(0, => 
Column_width%+Blanks4-CX)) 
Return 
Procedure Styles 
Local 1% 
Ik=l 
While Instr (Line$,Esc$,I%) >0 
Inc 1% 

Wend 

If Mid$(Line$,I4,1) >Chr$(&H80) 
Restyle!=Irue 
Style$=Mid$(Line$,I4,1) 
Let Line$=Line$tEsc$tChr$(&H80) 

Else 

Restyle!=false 
Style$="" 

Endif 

Return 


Procedure Open files(Exti$,Ext2$) 
Path$="\" 
Print At(35,2);"SOURCE FILE:" 
Repeat 
Fileselect Path$t"#"+Ext1$,"",Fil => 
ename$ 
Until Exist(Filename$) Or Filename$="" 
If Filename${ò"" 
Counter.point=0 
While Instr (Filename$,"\“,Counter => 
.paointti) 
Counter.point=Instr(Filename$,* => 
\“‚Counter.point+t1) 
Wend 
Path$=Left$(Filename$,Counter.point) 
Nf$=Mid$(Filename$,Counter.point+i) 
If Instr {(Nf$,",")>0 
Nf$=Left$(Nf$, Instr (Nf$,*.*)-1) 
Endif 
Print At(32,2);"DESTINATION FILE: " 
Fileselect Path$+"#"+tExt2$,NAS+ER => 
t2$,Nf$ 
Deffill 1,1 
Pbax 200,10,400,40 
Deffill 0,0 
If NES"! 
Open "i",#1l,Filename$ 
Open "0",#2,Nf$ 
Endif 
Endif 
Return 


Procedure Pagelength 
Line Input #1,Line$ 
Pagelength%=Val (Mid$(Line$,2,5)) 
Top_of_frm%=Val (Mid$(Line$,5,2)) 
Head _margn%=Val (Mid$(Line$,7,2)) 
Foot _margn%=Val (Mid$(Line$,9,2)) 
Bot of _frm%=Val(Mid$(Line$,11,2)) 
Nr_of lines%=Pagelength%-Top of frm => 
L-Head _margn%-Foot margnX-Bot of frm4 
If Nr_of _lines%<1 
Alert 3,M5g$(5)+Str$(Nr of lines => 
),1,"STOP",D 
Edit 
Endif 
Dim Pag${Nr_of lines4#2+1) 
Return 


Procedure File header 
Local A$ 
Column width4=36 
Print At(19,11);Msg$ (3); 
Let Printer _width4=80 
Input Printer _width$ 
If Printer _width$>"0" And Printer w => 
idth$<":" 
Let Printer width4=Val(Printer wi => 
dth$) 
Endif 
Print At(35,11);":";Space$(235)sPrin => 
ter _width% 
While Left$(Line$,i)=Lay$ 
Print #2,Line$ 
Line Input #1,Line$ 
If Mid$(Line$,2,1)="9" 
Column_width4=Instr{(Lines,"1")- => 
Instr{(Line$,"C*)+1 
BlanksX=Printer width4-5-2#Colu => 
mn_width7 
Do 
Print At(19,12);Msg$(é);Colum => 
n_width% 


Print At (19,13); Msq$ (7); Blank => 


Print At(59,13);2*Column widt => 
h4tBlanks4;*" * 
Print At(19,16)3"OK "; 
Input A$ 
Exit If Instr (*"Nn",A$)=0 
Print At(19,14);Msg$ (8); 
Input Blanks% 
Print At(57,14);" ";Blanks4 
Loop 
EcX=Column_width%-1 
Cb4=CchtBlanks% 
Let Line$=Lay$t"9["+String$(CbX => 
„".")+Chr$(&H7F) +String$(Cch-1,".") +") 
Endif 
Wend 
Return 


Procedure Init 
H$=" 1 85 T -AID" 
5$=" ist word-plus toolkit" 
Dia=200/520 
Far X1=0 To 320 
Xr=640-X1 
Yl=DiatXl 
Yr=DiatXr 
Box X1,Yl,Xr,Yr 
Hidem 
Next X1 
Graphmade 3 
@Shrink(0,390,20,10,140,60,360,240) 
Box 140,60,500,300 
Graphmode 2 
Deftext 0,16,,60 
@Shrink(0,390,40,10,180,77,300,23) 
Text 180,100,H$ 
Deftext ,0,,18 
&Shrink(0,390,30,10,180,120,300,20) 
Text 180,140,5$ 
Deftext ,,2700,4 
&Shrink(0,370,10,30,620,20,8,350) 
Text 620,20," (c) 1987 by Wim de Win => 
k aan Zee =} 
(NL) * 
Graphmade 3 
@Shrink(0,390,40,10,150,100,540,10) 
Box 150,110,490,100 
Deftext 1,,0,13 
Graphmade 1 
@Shrink(0,0,50,15,200,160,250,100) 
Alert O,Msg${1),1," OK fAuthor",D% 
If DX=2 
Alert 3,M5g$(2),1,"OK",D% 
Endif 
Deffill 0,0 
Pbox 140,150,500,300 
Return 


Procedure Shrink(P1,P2,P3,P4,P5,P6,P7 => 

‚Pa) 
Sdpoke Gintint0,P1 
Sdpoke Gintint2,P2 
Sdpoke Gintint4,P3 
Sdpoke Gintint6,P4 
Sdpoke Gintin+8,P5 
Sdpoke Gintin+10,P6 
Sdpoke Gintint12,P7 
Sdpoke Gintin+t14,P8 
Gemsys (73) 
Hidem 

Return 


Procedure Make_new page 
Sound 1,15,1,3,10 
Sound 1,0,0 
If Not Odd(Line%) 
Pag$(Linex)="" 
Else 
Dec Line% 
Endif 
For I%=1i To (Line4)/2 
If LineX/2-(I4-1+Soft page alertd => 
(IA) <0 
@Soft page (14) 
Endif 
Next I% 
For I%=t To (LineX)/2 
If Line layout pX(I4)>0 Or Line_l => 
ayout _pX(IXtLine%/2)>0 Then 
@Print layout lines(I4,1) 
@Print layout _lines(IXtLine4/2, => 
Column _width4+BlanksZ) 
Endif 
@Justify{ Iz) 
Print #2,Pag$(I%);Pag$(I%+LineZ/2) 
Line 361,195+1%,389,195+1% 
Line 401,195+I%,429,195+14 
Next I% 
Print #2,F£$; 
Let Lineï=l 
Arrayfill Line layout_p4(),0 
Arrayfill Soft page alertZ(),0 
Erase Layout lines$() 


Dim Layout lines$(100) 
Let Next layout 1%=0 
Inc Dest_page_nr4 
Inc Source _page_nr4 
EDraw page 
Return 
Procedure Make space 
Let Line adress%=Varptr(Linef) 
While Instr(Line$,Sft$)>0 
Poke Line adress4tInstr(Linef,Sft => 
$)-1,32 
Wend 
While Instr (Line$,Spc$) >0 
Poke Line adress4tInstr(line$,Spc => 
$)-1,32 
Wend 
While Instr (Line$,Ind$) >0 
Poke Line adress4tInstr(Line$,Ind => 
$)-1,32 
Wend 
Return 


Procedure Restyle 
Local PZ,L1% 
Ll%=Len(Line$) 
PL=1 
While (Mid$(Line$,P4,1)<=Chr$(&H20) => 
And Mid$(Line$,PZ,‚1I)<>Esc$) And PA<=L1% 
Inc PX 
Wend 
If Mid$(Line$,P4,1)<>Esc$ And PAX=Ll% 
Let Line$=left$(Line$,PA-I)tEsc$t => 
Style$tMid$(Line$,P%) 
Endif 
Return 


Procedure Select line 
If (Left$(Line$,i)=Lay$ And Mid$(Li => 
ne$,2,1)<>"9") And Not No more layout! 
If Line layout _pX(LineXt1)=0 
Inc Next layout _1% 
Let Line layout pX(Line%tij=Nex => 
t_layout_1% 
Endif 
Layout line$(Next layout _1%)=Lline$ 
Inc Next layaut 1% 
Endif 
Return 


Procedure Print layout lines(I%,Start 
_column%) 
Local JX 
‘14 Line layout _pX(I4)>0 Then 
J4=0 
Repeat 
Layo$=Layout line$(Line layout 
pl CIA) JI) 
If Mid$(Layo$,2,1)="8" 
Mid$(Laya$,5,2)=Str$(Start co => 
lumn4-1) 
Endif 
Print #2,Layo$ 
Inc J4 
Until Layout line$(Line layout _p4 
CIZ) td)" 
Endif 
Return 
Procedure Soft page (1%) 
If Nr_of lines%-(I4-1+Soft page ale => 
rt CI) >0 
Let NewlineX=2#(I%-1+Soft page al => 
ert4(14)) 
For JX=linekt1 To Newline% 
Pag$(Ju)="" 
Next J4 
Let Line%=Newline% 
Else 
Print "Z1S8T-E-NEVBPR, This shoul 
d never be printed 22?" 
Endif 
Return 


Procedure Draw page 
Deffill 0,0 
Graphmode 1 
Pbox 140,150,500,300 
Box 150,175,225,265 
Box 1460,195,190,195tNr of lines% 
Box 250,175,325,265 
Box 285,195,315,195tNr of lines% 
Box 350,175,440,265 
Box 3460,195,390,195t+Nr of lines% 
Bax 400,195,450,195tNr of lines% 
Text 170,225,Str$(Source_page_nr%) 
Text 295,225,Str$(Source _page_nrX+1) 
Text 391,225,Str$(Dest_page_nr%) 
„Graphmode 3 

Return 


@Make table 
Procedure Make table 
Translatie tabel: 


Data C,ue‚e,ae,a,a,a,c,e,esesisisi, => 
Ae,A,< 

Data E‚@,@,o,o0,0,u,u,y,0,le,c,@,Y,B => 
Ri 

Data a,i,o,u,n,‚N,a,o,?,6,@,1/2,1/4, => 


Data alfa,beta,Gamma,pi,@,@,‚mu,tau, => 
@,theta,omega,delta ‚Phi,phi,@,‚@,< 
Data @,ca.,>=,{=,€,@,/,8,8,E,.,8,@, => 
e‚e‚e‚< 
Restore Translatie tabel 
Dim Trans$(255) 
For IX=0 To 7 
For J4=0 To 15 
Read Trans$(16*IX+J4+128) 
Next JX 
Read Dummy$ 
Next IX 
Far 14=0 To 31 
Trans$(I4)="@" 
Next I% 
For I4=32 To 127 
Trans${(I%)=Chr$ (1%) 
Next IZ 
For I%=16 To 25 
Trans$(IX)=Str$( 14-16) 
Next 14 
Trans$(9)=Chr$(9) 1*<TAB>" 
Trans${(10)=Chr$(10) !'"<LFD" 
Trans${12)=Chr$(12) !"SFFD" 
Trans$(13)=Chr$(13) !"<CRÒ" 
Trans$(35i)="-" ! woord afgebroken 
Box 140,150,500,300 
Box 150,160,250,290 
Line 165,160,1465,290 
Line 150,175,230,175 
Line 150,275,230,275 
Box 400,175,450,200 
Box 400,215,450,240 
Box 400,255,450,280 
Deftext ,,,13 
Graphmade 2 
Text 154,173,Chr$(1) 
Text 154,288,Chr$(2) 
Text 410,193,"LOAD" 
Text 410,253, "SAVE" 
Text 410,273, "EXIT" 
Text 255,165," TRANSLATION CHARACTER => 
TABLE" 
Graphmode { 
Deftext ,,,6 
Deffill 0,0 
1%=128 
Klaar !=false 
Showm 
Do 
Pbox 166,176,229,274 
For J4=0 To 8 
Text 154,185+10%J%,Chr$(I%+JZ) 
Text 180,185+104J%,Trans$(1%+J4) 
Next JZ 
Repeat 
Until Mousek>0 
Mouse X%,Y4,Z4 
Exit If Z4=2 Or Klaar! 
If X%>400 And X%4450 
Graphmode 3 
Deffill 1,1 
If VA>175 And Y#<200 
Pbox 400,175,450,200 
@Load trans 
Pbox 400,175,450,200 
Endif 
If Y4>215 And Y4X240 
Pbox 400,215,450,240 
&Save trans 
Pbox 400,215,450,240 
Endif 
If V4>255 And YX<280 
Pbox 400,255,450,280 
Klaar !=True 
Endif 
Graphmode 1 
Deffill 0,0 
Endif 
If X4<165 And X4>150 
Pause 10 
If YAC175 And Y42150 
Sub IX,8 
IX=Max (0,14) 
Endif 
If YX<290 And Y4A>275 
Add 14,8 
IX=Min(247, 14) 
Endif 
If YZ>175 And Y4£275 
J4=(YA-185) /10+1 
If IX+JZ=64 
Print Chr${7); 
Else 


Graphmode 5 
Deffill 1,1 
Pbox 151,187+10#J4,229,177+ => 


Print At(55,12);Space${(7) 

Print AELSS,L2) 5 *S"7 

Form Input 6,Trans$(I%+J4) 

If Trans$(IZtJ4)="" 
Trans${(IZtJ4)="@" 

Endif 

Pbox 151,187+104J4,229,177+ => 


Graphmode 1 
Deffill 0,0 
Endif 
Endif 
Endif 
Loop 
Pbox 140,150,500,300 
Hidem 
Return 
Procedure Load trans 
Local 14 
If Exist("ist _AID.TRN") 
Open "i",#5,"ist AID.TRN" 
For IX=0 To 255 
Line Input #5,Trans$(1%) 
Next IX 
Close #5 
Else 
Alert 3,"* File not found:! 1ST_ => 
AID.TRN",1, "RETURN" ,D% 
Endif 
Return 


Procedure Save trans 
Local 14 
Open "0",#5,"1st_AID.TRN" 
For I4=0 To 255 
Print #5,Trans$ (14) 
Next 1% 
Close #5 
Return 


Procedure Istword to ascii 
&@Open_files(",DOC",",TXT") 
@Make table 
Box 170,250,470,275 
Print At(23,12);Msqg$ (18) 
Deffill 1,1 
While Not Eof (#1) 

Nline$="" 
Line Input #1,Line$ 
Pbox 170,250,470-300#(Lof (#1) -Lac => 
(#1) ) /Lof (#1) „275 
Hidem 
&Make space 
If Not Left$(Line$,1)=Chr$(&HIF) 
Repeat 
C4=Asc(Line$) 
C$=Trans$(C%) 
If C$)"@" Or C4=64 
Nline$=Nline$+C$ 
Endif 
If CX=&HIB Or C4=&HB 
N%=3 
Else 
N%=2 
Endif 
Let Line$=Mid$(Line$,N/) 
Until C4=0 
Print #2,Nline$ 
Endif 
Wend 
Return 


Procedure Index 
@Open_files(*“.DOC",".NDX") 
@Pagelength 
Lof%=Lof (#1) 

Close #1 

Print At(21,12);M5g$ (19); 

Form Input 1,Answer$ 

Let Rem flags!=(Instr("JjYy",Answer => 
$)>0) 

&File in _memory 

@Collect entries 

If Rem flags! 

Bsave Filename$,Start%,Lofx 

Endif 

&Sort entries 

@Make index 
Return 


Procedure File in memory 

Let Dimmer%Z=LofX/150 

Dim Index0$(Dimmer%),Indexi$(Dimmer => 
1) ,Index2$(Dimmer%,2) 

If (Not Fre(0)>Lof%+1000) 

Alert 3,"Not enough memory space 
avail-iable. Decrease Ramdisksize or! 
reboot with fewer accessories.",‚1,"CA 
NCEL"‚D% 


ks 


Else 
On Break Gosub Release 
Start%=Gemdos(&H48,L: Lof) 
Bload Filename$,Start% 
Endif 
Return 


Procedure Collect entries 
IX=Start4 
Nr_of _words%=0 
Let Line$=Space$ (25) 
Deffill 0,0 
Pbax 140,150,500,300 
Deffill 1,1 
Box 170,250,470,275 
Print At(22,12);Msg$ (15) 
Repeat 
If Peek (IX) =&H1B 
Inc 14 
If Peek(IX) And 2 
If Rem flags! 
Pake I%,Peek(IX) And (Not 2) 
Endif 
Entry!=True 
Repeat 
Inc 14 
If Peek (IX) =&HIB 
Ine 14 
If (Peek(IX) And 2) 
Entry!=True 
If Rem flags! 
Poke IX,Peek (IX) And 
(Nat 2) 
Endif 
Else 
Entry!=False 
Endif 
Endif 
Until (Peek(1X)>32 And Peek(1 => 
U-1)<H&HIB) Or Not Entry! 
J4=14 
If Entry! 
Repeat 
Inc 14 
Until Peek {(IX)=&HIB And Not => 
(Peek (IX+1) And 2) 
If I4-J4D=3 
Bmove J4,Varptr(Line$),Mi => 
n(I4-J4,25) 
Inc Nr_of _words% 
If Nr_of_words%>Lof4/150 
If Fre(0)<40*Dimmer% 
Alert 3,Msg$(4),1,"re 
cover cancel",D% 
Endif 
If D4=2 
Edit 
Else 
Dim Copy$(Dim?(Indexi => 


Swap Copy$(),Indexi$() 
Erase Indext$() 
Erase Index2$() 
Mul Dimmer%,1.5 
Dim Indexi$(Dimmer%), => 
Index2$(Dimmer%, 1) 
Swap Copy$(),Index1$() 
Erase Copy$() 
Endif 
Endif 
Indexi${(Nr of words%)=Line$ 
Index0$(Nr_of _wordsX%)=Spa => 
ce (25) 
Spc4=0 
For li%=l To 25 
C$=Mid$(Line$,lik,1) 
If C$=" * 
Spc4=Instr (Index0$(Nr => 
_of _words%)," *) 
Mid$(Index0$(Nr of wo => 
rds%),Spch,1)=C$ 
Endif 
Next Iik 
Index0$(Nr_of _words%)=Lef 
t$(Index0$(Nr_of _wards%),Spc4) 
Let Line$=Space$(25) 
Endif 
Endif 
Endif 
Endif 
Inc 14 
Xú=(IA-Start#)#500/Lof +170 
If KALNA 
Pbox 170,275,X%,250 
Lxr=Xi 
Endif 
Until I%>Lof%+Start% 
Return 


Procedure Sort entries 
Far I%=t To Nr_of_words% 
J4=0 
Repeat 
Inc J4 
Until Indexi$(I4)x=Index2$(J4,1) 


Or Index2$(J4,in="" 
If Not (Indexi$(IX)=Index2$(J4,1)) 
Kr=J4 
Hulp$="" 
Repeat 
Swap Index2${(K4,1) ‚Hulpé$ 
Inc KX 
NnowkZ=Max (Nnowk,KX) 
Until Index2$(KX,ij="" 
Index2$(KX,1)=Hulp$ 
KL=25 
While Mid$(Index1$(IX),K4,ij=" * 
Dec KX 
Wend 
Index2$(J4,i)=Left$(Indexi$ (IA) => 
‚KZ 
Index2$(J4,2)=IndexC$( 1%) 
Endif 
Next I% 
Erase Indexi$() 
Erase Indexû$() 
Nr_of _wordsX=NnowZ 
For I%={t To Nr_of _wordsX 
Index2$=Index2$tUpper$(Left$(Inde => 
X2$(I%,1),3)) +Chr$ (0) 
Next IX 
Return 
Procedure Make index 
IX=Start% 
Print At(22,14); 
Input “start met pagina ";Page% 
Let Linek=! 
Test$=Space$ (3) 
Deffill 0,0 
Pbax 140,150,500,300 
Deffill 1,1 
Box 170,250,470,275 
Print At(22,12);Msg$(16) 
Lx4=0 
Repeat 
Chrú=Peek (1%) 
If Peek (IX) =&HIF 
Repeat 
Inc 14 
Until Peek (1%)=&HD 
Inc 14 
Endif 
If Chr4=&HD 
Inc Line% 
Endif 
If ChrX=&HC Or (Chr4=&HB And Peek => 
(I%+1)>&H73) Or LineXòNr of lines% 
Inc Page% 
Let Line%=| 
Endif 
If ChrX>32 And (Peek (IX-1)C>&HIB) 
Bmove I%,Varptr (Test$) ‚3 
Test$=Upper$ (Test$) 
If Instr (Index2$,Test$) >0 
Test index (1%) 
Endif 
While Peek (I%+1)>32 
Inc I% 
Wend 
Endif 
Inc 14 
XL=(IX-StartX)#300/Lof +170 
If XZ>Lx4 
Pbox 170,275,X%,250 
Lxr=X4 
Endif 
Until IX>Start4tLofx 
For I%=1t To Nr_af_wordsX 
Swap Index2$(I%,1),Line$ 
@Make space 
Index2$(I%,1)=Space$ (25) 
Lset Index2${(I%,1)=Line$ 
Print #2,Index2$(I%,1);Index2$(1%,0) 
Next IZ 
&Release 
Return 


Procedure Release 
Void Gemdos{(&H49,L:Start%) 
Return 


Procedure Test _index(Pos%) 
Local I%,J4,KZ,C4,Lck 
IX=1 
Repeat 
Strposk=Instr (Index2$,Test$)/4+1 
Partner$=Upper$(Index2$(Strpos%,1)) 
Test2$="" 
Clr JX,KL,Le% 
Repeat 
Ci=Peek (Pos4+J%) 
If CX>32 And LcXé>&HIB 
Test2$=Test2$+Chr$(C1) 
Inc KX 
Endif 
Inc JA 
Lei=C 
Until Käè=Len (Partners) 
Test2$=Upper$(Test2$) 


If Test2$=Partner$ 
If Instr (Index2$(Strpos4,0)," * => 
+Str$(Pagek))=0 
If Not (Index2$(Strposk,0)="") 
Index2${Strpas%,O)=Index2$( => 
Strpask,0)t"," 
Endif 
Index2$(Strpos%,0O)=Index2$(St => 
rposk,0)+" "+Str$(Paged) 
Endif 
IX=Len (Index2$) 
Endif 
Add 14,4 
Until Instr (Index2$,Test$,I4)=0 
Return 


Procedure Menu 
Deffill 0,0 
Graphmode 1 
Pbox 140,150,500,300 
Print At(29,11);sMsg$ (9) 
Print At(19,13);Msg$(10) 
Print At(19,14)sMsg$(11) 
Print At(19,15);Msg$(12) 
Print At(19,16);Msg$ (13) 
Print At(19,18);M5g$ (14); 
Input KeuzeX 
If KeuzeX>=l And Keuzer{=4 
Deffill 0,0 
Pbox 140,150,500,3500 
Else 
Edit 
Endif 
Return 


Procedure Ascii to _1stword 
&Open_files(",TXT",",DOC") 
Box 170,250,470,275 
Deffill 1,1 
Print At(23,12);Msg$ (17) 
While Not Eof (#1) 
Line Input #1,Line$: 
Pbox 170,250,470-3004(Lof (#1) -Loc => 
(HI) /Lof (#1) ,275 
Hidem 
If Line$="" 
Print #2 
Else 
Print #2,5ft$ 
Endif 
Let Line adress4=Varptr (Lines) 
For I4=0 To Len(Line$)-1 
If Peek(Line adress4+I4)=32 
If Peek(Line adress4tI%-i)=k&H => 
1E Or Peek(Line adress4t14)=&H9 
Poke Line _adress4t1%,&HIC 
Else 
Poke Line _adress/+I%,&HIE 
Endif 
Endif 
Next IX 
Print #2,Line$; 
Wend 
Return 


Procedure Messages 

Dim Msqg$(20) 

Msg$(1i)="This program is strictly P => 
D.iand may not be sold noricommercial => 
ly published withoutiprior permission => 

of the Author" 

Msg$(2)="Wim de Winter:Tappenbeckst => 
k aan Zee" 

Msg$(3)="printer breedte (80):" 

Msg$(4)="Teveel entries. !Geheugento => 
estand kritiek," 

Msg$(5)="Onwaarschijnlijke paginail => 
engte: * 

Msg$(6)="kolombreedte : 


Msg${(7)="paginabreedte bij scheidin => 
gsbreedte 
Msg$(8)="geef scheidingsbreedte =} 


Msg$(9)="OPTIES:" 
Msg$(10)="ASCII 
1 
Msg$(11)="istWord 
ze 
Msg$(12)="Zet IstWord-file in 2 kol => 
ommen he 
Msg$(13)="Index istWord-file 
4e 
Msg$(14)="Uw keuze 


==} IstWord 


==> ASCII 


Msg$(15)="Entries worden verzameld" 
Msg$(l6)="File-index wordt samenges => 
teld * 
Msg$(17)="Fileconversie ASCII --} 1 => 
st-Word" 
Msqg$(18)="Fileconversie Ist-Word -=- => 
> ASCII" 
der index-vlaggen ui => 
t origineel ? * 
Return 


Atari Corporation, tot voor kort een verlieslijden- 
de onderneming in spelletjes- en homecomputers, 
is sinds de introduktie van de ST helemaal terug. 
Er worden indrukwekkende omzetten en dito 
winstcijfers gerealiseerd. Het concern is inmiddels 
uitde schulden en zit boordevol plannen voor nog 
meer nieuwe produkten tegen nog lagere 
prijzen. 

Opmerkelijk daarbij is dat Atari zich steeds meer 
richt op de zakelijke gebruikers; een markt waar 
IBM en -compatibles en in mindere mate Apple 
Macintosh de dienst leken uit te maken. 
Inmiddels is in Nederland de 15-duizendste ST 
verkocht; van dit aantal wordt naar schatting zo’n 
30 percent zakelijk gebruikt. De nieuwe professionele Mega ST's, een 
supergoedkope laserprinter. een IBM-compatible PC, een (eind 1987 uit 
te brengen) grafisch werkstation en een nog snellere en geavanceerdere 
opvolger van de ST, de Atari TT, geven duidelijk aan waar Atari naar toe 
wil: een stevige positie in zowel de personal computermarkt als in de 
spelletjes- en homecomputermarkt en straks ook in de mini- 
computermarkt. 

Atari-topman Jack Tramiel zei het op de Hannover Messe al: „We willen 


marktleider zijn in alle drie de segmenten.” 
Reden genoeg om eens met Atari Benelux te gaan praten over de vraag 


hoe men in Nederland de zakelijke markt deni ie gaan verov 


„Niet de aan- 
schafprijs, maar 
de terugverdien- 
tijd is de be- 
langrijkste kos- 
tenfaktor. 

En de terugver- 
dientijd is b 
een ST opvallend kort.” Dat is het an 


Wilfried de Graaf 


twoord van sales- en marketing manager 


Wilfried de Graaf van Atari Benelux op de 
viaag met welke argumenten hij denkt 
zakelijke gebruikers ervan te kunnen 
overtuigen dat ze beter af zijn met een ST 
dan met een IBM-PC. 

„Vrijwel iedereen kan na een korte intro- 
duktie uit de voeten met een ST, terwijl je 
voor een PC vaak speciale cursussen van 
een dag of wat nodig hebt om met een be- 
paald programma te kunnen werken. Die 
trainingen zijn de echte geldverslinders. 
Daar gaat vaak bijna evenveel geld in zit- 
ten als in de aanschaf. En dan nog hebben 
veel mensen moeite met het gebruik van 
hun computer. Het zou aardig zijn om 
eens te onderzoeken hoeveel PC's er bij 
bedrijven ongebruikt staan, omdat de 
mensen er niet mee overweg kunnen. Ik 
denk dat het schokkende cijfers zou 
opleveren.” 


- Als de ST zichzelf veel sneller terugver- 
dient dan een PC, waarom gaat Atari dan 
toch PC's maken? Daarmee ontkracht 
Atari zijn eigen verkoopargument voor 
de ST. 

De Graaf: „We hebben te maken met een 
markt die verdeeld is in compatible en 
non-compatible computers. Zo'n 70 per- 
cent van de markt wil een IBM of - 
compatible, omdat de buurman die ook 


z cent 


De ST is veel aber 
terugverdiend dan de _% 


heeft. steht 3 30 percent is geïnteresseerd 
in non-Com patible. Ik denk dat de grafisch 
georiënteerde computers zoals de Atari 
ST„Apple Macintosh en de Commodore 


ft gehad, en dat alle computers van de 
ieuwe generatie zullen werken volgens 


het What You See Is What You Get- 


principe. Maar feit blijft dat de markt op 
dit moment, ondanks een aanzienlijk aan- 
tal nadelen, in meerderheid voor compati- 
ble computers kiest. En onze leus is Atari 
maakt computers betaalbaar, niet Atari 
maakt ST’s betaalbaar.” 


- What They Want Is What They Get? 
De Graaf: „Precies. Overigens, de Atari 
PC is niet zomaar de zoveelste kloon op de 
markt. We hebben wel degelijk iets toe- 
gevoegd aan het IBM-concept, door stan- 
daard een hoge grafische resolutie in te 
bouwen en - evenals de ST - de computer 
te leveren met GEM en een muis. Maar als 
je voor een compatible computer kiest, be- 
tekent het ook dat je voor MS-DOS kiest, 
en dus voor een gebruiksonvriendelijk be- 
sturingssysteem dat niet meer informatie 
geeft dan A>. Het harde argument dat de 
terugverdiendtijd van een ST veel korter is 
dan van een PC, blijft volledig over- 
eind.” 


- De gebruiksvriendelijkheid van de ST is 
dus het belangrijkste verkoopargument. 
Maar hoe zit het met de software? Voor de 
PC zijn in de afgelopen jaren duizenden 
programma’s van vaak zeer hoge kwaliteit 
geschreven. De ontwikkeling van zake- 
lijke software voor de ST begint nu pas 


s van die marktafte snoepen. Ik ver. 


Sengess wel in staat zijn om een paar pro- 
cht zelfs dat MS-DOS z’n langste tijd — 


goed op gang te komen. 

De Graaf: „Er wordt vaak gezegd dat er 
onvoldoende professionele programma's 
zouden zijn voor de ST. Ik bestrijd dat. In 
de eerste plaats is het zo dat de ontwik- 
keling van programmatuur voor de PC 
pas na verloop van enkele jaren goed be- 
gon te lopen. Wat dat betreft is er voor de 
ST na anderhalf jaar al een opvallend 
groot aantal programmatitels beschik- 
baar; verhoudingsgewijs veel meer dan 
destijds voor de PC. 

In de tweede plaats: voor de meest ge- 
bruikte zakelijke toepassingen zijn er ST- 
programma’s die zich zondermeer kun- 
nen meten met vergelijkbare programma's 
voor de PC. Ga het rijtje maar na. VIP Pro- 
fessional is een minstens even krachtige 
en zelfs snellere spreadsheet dan Lotus 1- 
2-3. Hetzelfde geldt voor DB-Man ten op- 
zichte van dBase-III. En sinds kort is er 
Adimens, een relationele database die vol- 
ledig GEM-ondersteund werkt en daarbij 
ook nog eens razendsnel is. Datzelfde 
pakket kostte voor Wang-computers, 
waarvoor het oorspronkelijk is ontwik- 
keld, vele duizenden guldens.” 


- Maar voor de belangrijkste zakelijke toe- 
passing, tekstverwerking, ben ik nog geen 


programma tegengekomen dat de mo- 


heden van de ST volledig benut. 
Graaf:-„Daar komt dan binnenkort 
verandering i in. Allereerst is nu een volle- 
dig Nederlandse versie van 1st Word Plus 
beschikbaar. Het meest opvallende daar- 
van is dat grafieken en tekeningen in de 
tekst kunnen worden opgenomen. Dan is 
er Write, de ST-versie van Microsoft Word, 
dat alom wordt beschouwd als een van de 
allerbeste tekstverwerkers. Dat program- 
ma is vooral geschikt voor mensen die 
heel omvangrijke documenten moeten 
schrijven; het heeft bijvoorbeeld zeer uit- 
gebreide mogelijkheden voor fonts, pa- 
gina-indeling en voetnoten. En tenslotte 
wordt ook WordPerfect voor de ST 
uitgebracht. 

Het is dus al lang niet meer zo dat er alleen 
door kleine softwarehuizen programma’s 
voor de ST worden geschreven. Overigens, 
ook in Nederland wordt er opvallend goe- 
de software gemaakt. Bijvoorbeeld Pro- 
jecta-4 en Factura-4, een kompleet finan- 
cieel administratiepakket voor het mid- 
den- en kleinbedrijf. Of Arkey, een pro- 
gramma waarmee architekten bouw- 
ontwerpen kunnen maken en zelfs 
komplete bestekken kunnen doorrekenen. 
Er gebeurt echt heel veel.” 


- Behalve de prijs, de kwaliteit van de 
hardware en software, is het vooral de ser- 
vice die een doorslaggevende rol speelt bij 
de aanschaf van een computersysteem. 
Daarover hoor ik veel klachten. Het lijkt 
me dat juist de service de zwakke schakel 


id 


is bij Atari. 

De Graaf: „Service is in de eerste plaats 
een zaak van de dealer. In de adviesprij- 
zen zit een redelijke marge verwerkt, waar- 
door de dealer ook aandacht kan besteden 
aan de after sales. Maar wie koopt bij een 
computerzaak die ver onder de adviesprij- 
zen werkt, hoeft niet te rekenen op veel ser- 
vice van zo’n zaak. Dat kan ook niet, want 
daarvoor heeft de dealer z’n marge te klein 
gemaakt.” 


- Maar hoort die dealer dan wel thuis in de 
Atari-organisatie? Als je de zakelijke 
markt wilt veroveren zul je er toch voor 
moeten zorgen dat je dealernet in orde 
is. 

De Graaf: „Er worden dan ook regelmatig 
dealers van de lijst afgevoerd, die naar on- 
ze mening te weinig service verlenen of die 
klanten met een kluitje het riet in sturen. 
Als we daar herhaaldelijk klachten over 
krijgen, trekken we die na en als dan blijkt 
dat de klachten gegrond zijn, wordt het 
dealerschap ingetrokken. Gelukkig heb- 
ben we veel aanvragen van computer- 
zaken, ook heel grote, die graag Atari- 
dealer willen worden. We hebben zelfs een 
dealerstop moeten invoeren.” 


- U schuift de verantwoordelijkheid nu 
door naar de dealers, maar ook van hun 
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kant hoor ik klachten over Atari Benelux. 
Bijvoorbeeld over onderdelen die niet op 
voorraad zijn en over leveringsproblemen 
met de computers. Terwijl u eind vorig jaar 
uitdrukkelijk heeft gezegd dat de leve- 
ringsproblemen verleden tijd zouden 
zijn. 

De Graaf: „Sommige dealers hebben in- 
derdaad nog steeds leveringsproblemen. 
Dat heeft niet zozeer te maken met de pro- 
duktiekapaciteit van de Atari-fabriek in 
Taiwan, want dat is een van de grootste ter 
wereld. Het heeft te maken met planning. 
De computers worden vanuit Taiwan ver- 
scheept naar Europa; daardoor zit er zo’n 
twee tot drie maanden tussen bestelling en 
aflevering. Vooral kleine dealers willen of 
durven niet zolang van tevoren te plan- 
nen, uit angst dat ze met een grote voor- 
raad blijven zitten. Die zijn gewoon te 
voorzichtig; bij een aktieve dealer worden 
de ST’s verkocht als warme broodjes.” 


- Als ik het goed begrijp kun je de goede 
dealer dus herkennen aan twee dingen: hij 
is niet de goedkoopste, en heeft voldoende 
ST's in Z'n magazijn. Een aantal Atari- 
dealers heeft voorgesteld om de ‘betere’ 
dealers te onderscheiden van de rest door 
een organisatie van ster-dealers in het 
leven te roepen. Wat vindt u daarvan? 

De Graaf: „Wij hebben er geen behoefte 


aan om onderscheid te maken tussen onze 
dealers. De ST is een computer voor de 
massa, die moet je geen exklusieve status 
geven. En dus moet je ook geen net van 
exklusieve dealers opzetten. 

Het karakter en de prijsstelling van de ST 
brengt met zich mee dat die zowel via 
hobby- als professionele dealers wordt 
verkocht. De eindgebruiker moet zelf uit- 
maken bij wie hij wil kopen: voor een 
bodemprijs bij een hobby-dealer, met het 
risico dat hij een slechte nazorg krijgt; of 
voor een paar honderd gulden extra bij 
een professionele dealer, waarbij hij dan 
ook moet kunnen rekenen op uitste- 
kende service. 


Toch zijn we daar de laatste tijd wat anders 
over gaan denken. Als het ontbreken van 
een professioneel dealernet tot problemen 
dreigt te leiden, overwegen we om de duur- 
dere ST's en randapparatuur, zoals de 
laserprinter, alleen via professioneel inge- 
stelde dealers te gaan verkopen. Maar 
zover is het, gelukkig, nog niet.” 


m Alfred Konijnenbelt 


Debiteuren 
Krediteuren 

Kas, bank, giro 
Balans - V&W 
Voorraad 
Uren-registratie 
Projekt-administratie 
Fakturering 


/ Faktura-4 
den met plezier. 


Projecta-4 / Faktura-4 is een van de plezierigste softwarepakketten op finan- 
cieel gebied voor MS-DOS computers en de Atari-ST. Het heeft een ongekend 
groot gebruiksgemak en biedt standaard alles wat u van een serieus zakelijk 
pakket mag verwachten. Dat betekent dat u er voor nu en in de toekomst vol- 
ledig mee uit de voeten kunt zonder eindeloos te moeten blijven investeren. 
Sterker nog: ons service-kontrakt geeft u het recht op gratis nieuwe versies als 


ons pakket straks nog uitgebreider wordt. En het geeft u tevens de zekerheid van 


een jaar lang uitstekende support! En dat alles voor een uiterst aangename prijs. 
Geen wonder dat er nu al honderden tevreden gebruikers zijn! 


UIT DE VAKPERS: 


Het is natuurlijk bijzonder 
aardig om positieve reakties te 
krijgen op een produkt waarin 
je als maker gelooft. Zeker als 
de gebruikers - maar ook de 
vakmensen - onze filosofie 
achter het produkt blijken te 
herkennen. 


Onder het kopje 'Projecta-4 - 
Management- gericht’ schrijft 
P.C.M., het toonaangevende 
computerblad: 

“De handleiding van Projecta-4 
wint met mijlen voorsprong de 
prijs voor het mooiste uiterlijk 
en ook ruimschoots die voor de 
best geschreven tekst (…).” 
P.C.M. mei 1987 


Uit START (Atari- blad) mei 
19877: 

“Het is een werkelijk een 
plezier om de dagelijkse 
boekingen in te voeren. (…) 
Fouten maken is nauwelijks 
mogelijk. (…)” 


Uit Atari- magazine, april 1987: 
“Deze Rolls Royce onder de 
boekhoudprogramma's is voor 
iemand die meer dan een kas-, 
giro-,en bankboek wil een 
MUST en zijn geld dubbel en 
dwars waard.” 


Opvragen 


Invoeren 


KRED. KO 


B] Atari- versie 02.05 


Projecta-4 heeft nu standaard het de- 
cimale rekeningschema met zescijfe- 
rige vrije grootboeknummers. 


Nieuw is de mogelijkheid om in Fak- 
tura de faktuur te verlengen met een 
acceptgirokaart, waarop alle gewens- 
te gegevens automatisch worden in- 

gevuld. 


Voor administratiekantoren is nu de 
licentie- versie beschikbaar waarmee 
een onbeperkt aantal boekhoudingen 
kan worden gevoerd. 


Aan Faktura-4 is een extra optie toe- 
gevoegd van offertes en orderbevesti- 
gingen. Daarbij is het uiteraard moge- 
lijk offertes direkt om te zetten in 
fakturen, maar indien nodig kunnen 
ze ook worden gewijzigd en aange- 
vuld en zelfs worden omgezet in een 


(advertentie) 


NIEUWS 


Printen Menu's Stop 


395.26 
53637, 33 
805.90 
12508.80 f 
162089.08 E 


Kassaldo,,,.... 
Banksaldo,‚‚...! 
Girosaldo,.....! 
Onderh, Herk, ; 
Debiteuren... 


Beschikbare 


niddelen..…‚: f 169333.05 É 


Krediteuren.………: f__ 18754.40 É 


LIQUIDE POSITIE: f  150604,63 E 


(TOETS) = Doorgaan 


regulier lopend’ projekt waarop 
diverse andere leveringen kunnen 
worden geboekt. 


In voorbereiding is een versie voor de 
gespecialiseerde boekhandel met een 
zeer uitgebreid ge-indexeerd artike- 
lenbestand en zoekmogelijkheden op 
talloze velden. 


Projecta-4 en Faktura-4 zijn nu ook 
verkrijgbaar in Belgie in een versie 
die volledig is aangepast aan de 
Belgische wettelijke normen. 


Eerst zien en dan geloven? Stap 
binnen bij een van de ca. 120 
dealers in Nederland en Belgie 
en vraag vrijblijvende demon- 
stratie. Of bel TOPIC Software 
Amsterdam: 020-681400 voor 
een dealerlijst. 


TOPIC Software - Ruyschstraat 23 - 1091 BR Amsterdam 


OGRAMMA'S 
ET KARAKTER 


Een truukje wat u beslist niet onthouden mag worden, is het veranderen van 
de karaktersets die de ST gebruikt. De karaktersets heten bij de ST de 


systeemfonts. 


Er zijn er drie: het 6x6 systeemfont (dat in kombinatie met de ikonen ge- 
bruikt wordt), het 8x8 systeemfont (normale tekst in lage resolutie) en het 
8x16 systeemfont (normale tekst in hoge resolutie). 

Als de systeemfonts worden veranderd, verandert bijna alles. Drop-down 
menu’s, alertboxen, kortom alles wat tekst gebruikt zal uw eigen karakter- 


set tonen. 


Dit geeft u bijvoorbeeld de mogelijkheid om meerdere fonts in een 
tekenprogramma op te nemen. Nadat u dit artikel grondig heeft bestu- 
deerd, kunt u het tekenprogramma ”KunST” (uit START 4) dus 


uitbreiden. 


Of wat te denken van een spelletje? Niets leuker dan een eigen karakterset 
voor de hi-score tabel. Kortom: als u uw programma’s iets speciaals wilt 
meegeven, is een eigen font een echte aanrader. 


GEM en TOS 


Er zijn twee soorten programma’s voor de 
ST: programma’s die onder TOS draaien 
en programma’s die van een GEM- 
omgeving (vensters, menu's) gebruik ma- 
ken. In beide soorten programma’s kan 
met zelf gedefinieerde karakters gewerkt 
worden. 

Voor allebei de “toestanden” krijgt u in dit 
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artikel voldoende handvaten: er volgen 
maar liefst zes listings op de volgende 
bladzijden. De eerste listing werd ge- 
schreven door Karl Moens; listing twee tot 
en met zes zijn van de hand van Egon 
Lubbers. 


LISTING 1: FONT-ED.BAS 


De eerste listing bevat een komplete 
FONT-EDITOR. Met dit programma 
kunt u zelf karaktersets ontwerpen. Uiter- 


- aard kunt u ook bestaande fonts laden en 


wijzigen. De font-editor werkt alleen in 
kombinatie met een monochrome mo- 
nitor. De fonts zijn echter ook in de lagere 
resoluties te gebruiken. 

In aansluiting op dit artikel vindt u een 
komplete gebruiksaanwijzing. 


LISTING 2: FONTMANILBAS 

Als we optimaal van fonts gebruik willen 
maken, hebben we de adressen nodig die 
het begin van de systeemfonts in het ge- 
heugen aangeven. 

FONTMANIBAS is een BASIC-pro- 
gramma dat een stukje machinetaal bevat 
om die “pointers” te vinden. 

Deze listing vormt het hart voor onze vol- 
gende experimenten en moet zowel voor 
listing drie als voor listing vier ge- 
plaatst worden. 


LISTING 3: FONTDEMO.BAS 

Dit programma demonstreert het gebruik 
van GEM- en TOS-fonts in GfA-BASIC 
op een monochroom monitor. U moet de- 
ze listing onder listing twee toevoegen en 
pas daarna ”runnen”. 

Het programma rekent allereerst het 8x16 
font om tot een “streepjes-font”. Dat geldt 
zowel voor gebruik in TOS (de gewone op- 
dracht PRINT) als GEM (de instruktie 
TEXT). Na een druk op een toets wordt al- 
les weer normaal.Weer op een toets druk- 
ken brengt een alertbox op het scherm. Er 
zijn nu twee dingen veranderd. Het TOS- 
font staat ingesteld op 8x8 karakters en het 
scherm scrollt met één puntje tegelijk (een 
extraatje). Binnen de alertbox is het 8x8 
GEM-font aktief. U kunt het met een 
muisklik op 6x6 zetten. 

De keuze voor “exit” brengt een volgende 
alertbox. U kunt het programma afbreken 
met ”stop”. Hierdoor blijven zowel het 
8x8-font als de één-punt-scroll aktief. Als 
u kiest voor “cont”, zet het programma de 
oude fonts weer terug en keert het netjes te- 
rug naar de editor. 

Als u een eigen karakterset in een GfA 
programma wilt gebruiken, is listing drie 
eveneens waardevol. Op de plaats waar 
het programma het streepjes-font ont- 
werpt, moet u het font inlezen. In de listing 
kunt u voor een willekeurig font 
FONT.FDA de juiste manier vinden. Dit 
stukje programma is echter met een apo- 
strof buiten werking gesteld. Als u het wilt 
gebruiken, moet u de apostrof verwijderen 
en het streepjes-font uitschakelen. 


LISTING 4: DEGFDA.BAS 
Bij DEGAS, waarschijnlijk het meest ver- 
spreide tekenpakket voor de ST, worden 
losse fonts geleverd. Het zou prettig zijn 
als we die in onze eigen programma’s kon- 
den gebruiken. Een DEGAS-font bestaat 
uit 128 karakters van 16 bytes elk. De op- 
bouw is anders dan bij de systeemfonts 
(zie verderop). Eerst wordt karakter 0 hele- 
maal gedefinieerd, dan helemaal karakter 
1, enz. De grootte van de komplete karak- 
terset is 128 karakters * 16 bytes = 2048 
bytes. Een utility om een DEGAS-font te 
konverteren naar een direkt bruikbaar 
font is afgedrukt in listing vier. De fonts 
worden op schijf gezet met de extensie 
FDA. 

Ook deze listing moet worden vooraf- 
gegaan door listing twee. 

Nu we het toch over DEGAS hebben: de 
editor die daarbij wordt geleverd is ook 
prima geschikt om eigen karaktersets te 
ontwerpen. Konverteer het resultaat dan 
(weer met listing vier) naar een FDA file. 
Hierna kunt u het font met listing drie in 
een GfA programma gebruiken of met lis- 
ting zes in uw desktop installeren. 


LISTING 5: FONTDEMO.C 

Natuurlijk zitten we voor het gebruik van 
fonts niet aan BASIC vast. Listing vijf de- 
monstreert het gebruik van het 8x8 TOS- 
fonts in C. Compileer de source met 
Megamax-C. 


LISTING 6: SET-FONT.ASM 


We eindigen met een programma in ma- 
chinetaal. Geef de geassembleerde ver- 
sie van deze source de naam 
SET-FONT.TTP. Als u het programma 
start, vraagt het om parameters. U voert de 
naam in van het font dat u wilt gebruiken 
(bijvoorbeeld GRIEKS.FDA). Uw desk- 
top komt nu op met het nieuwe GEM-font 
(zie illustraties). 


WIJZERS VERDRAAIEN 

Natuurlijk wilt u ook iets over de interne 
werking van de programma’s weten. Laten 
we maar snel met de theorie beginnen. 
Een GEM-font bestaat uit een fontheader, 
fontdata, character- en een horizontal 
offset table. Voor ons projekt zijn de 
fontheaders en de fontdata van de drie sy- 
steemfonts belangrijk. 

Ten eerste moeten we er achter zien te 
komen op welke plaats de systeemfonts in 
het geheugen staan. Deze informatie is al- 
leen te vinden met behulp van een stukje 
machinetaal (listing 2). 

Dit is wat er gebeurt: de machinetaal voert 
de opcode $A000 uit, waarna in AO het 
startadres van de line A variabelen staat. 
In Al vinden we een vektor die naar drie 
pointers op de ”systeemfontheaders” wijst. 
Laten we deze fontheaders eens nader 
bekijken. 

Een fontheader beschrijft hoe een font er 
uitziet (o.a. grootte, breedte en vorm van 
de karakters in dat font). Een ries kle 
onderdeel is de pointer die aangeeft op 
welke plaats de fontdata beginnen. De 


FIGUUR 1 


A65) B(66) 
& Aantal bytes vanaf start fontdata 


sas el H és 


65+256%10 
65+256%11 
65+256%12 
65+236%13 
65425614 
65+256X15 


66*256%18 
66*256X11 
66*256%12 
66*256RL3 
66+256%14 
66*256415 


65+256%2 66*256%2 
6542563 ||| EE L_ | 66*256%3 
65425644 || le EE BRE 
654256%5 || a | MR | 662565 
6542566 || E LN | 66°256% 
65425647 || E | 66*256%7 
65+256%8 || E | | 66*256%8 
65425643 || a | MR | 662569 

El hl mn an 

le ll mn a 

Ei let En 

el a Da 


Opbouw fontdata 


fontdata beschrijven hoe de karakters van 
het font er uit komen te zien. Deze pointer 
staat 76 bytes na het begin van de fonthea- 
der. Als we kans zien de fontdata pointer 
te veranderen, kunnen we hem naar elke 
plek in het geheugen laten wijzen. Als we 
op een bepaalde plaats onze eigen fontda- 
ta neerzetten, hebben we bereikt wat we 
willen. (De grootte en breedte van het font 
hoeven we niet te veranderen: deze liggen 
immers al vast (6x6 onder ikonen, 8x8 in 
kleur en 8x16 in monochroom). 

Natuurlijk moeten we vervolgens de op- 
bouw van de fontdata bestuderen. Deze is 
een beetje ingewikkeld: de eerste byte is de 
eerste byte van karakter 0. Vervolgens 
volgt de eerste byte van karakter 1, dan de 
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OEGFDA BAS 
FONTCON BAS 
FONTDEMD BAS 
SPRITE? BAS 
CLASSIC FDA 
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KINDER FDA 
LUGUBER FDA 
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STENCIL 
SYSTEM 
THIN 

DESKTOP 
FONTCON PRG 
FNTDEMO TOS 
SET_FONT TIP 
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GROENEBD DOC 5141 
5038 VRAAG ENT 4035 
035 SE rn 1432 
23/6 DESKTOP INF 53e 
4035 ACCLORD KOL 5834 
4095 FLOP KOL 476 
405 MOENS KOL 14108 
4035 ACCLORD LST 6673 
405 FLOP LST 4ral 
4095 DENS _L5T 13578 
4035 CURSUS5E PC3 5854 
4095 CURSUS5Z PIJ 32034 
405 CURSUSS1 PI3 32234 
478 FIGUUR PI3 32466 
177@ FIGUUR? PI3 32055 
5843 BTW 


eerste byte van karakter 2, enz… Na van al- 
le 256 karakters de eerste byte te hebben 
plee volgt de tweede byte van 
arakter 0, dan weer de tweede byte van 
karakter 1, enz. (zie figuur 1). Een 8x16 
font is dus 4096 bytes groot (256 karakters 
van elk 16 bytes), een 8x8 font 2048 bytes. 
Het 6x6 font is 256*6*6 bits groot, dus 
256*6*6/8 = 1152 bytes. Houd er in dit 
laatste geval rekening mee dat alle bits ge- 
bruikt worden. (Dus 1 byte bevat data voor 
8/36 = 2/9 karakter.) 
Laten we even terugkeren naar de drie 
pointers die naar de systeemfonts wijzen. 
Pointer 1 wijst naar de header van het 6x6 
systeemfont, pointer 2 naar de header van 
het 8x8 systeemfont en pointer 3 op de 
header van het 8x16 systeemfont. 
Helaas moet ons plan in de prullenbak: de 
gebruiker kan deze pointers niet op zijn ei- 
gen fontheaders laten wijzen, omdat ze in 
ROM staan. Datzelfde geldt voor de poin- 
ters naar de fontdata. Alle pointers die niet 
gewijzigd kunnen worden, staan met ge- 
heel zwarte lijnen in figuur 2 getekend. De 
pointers die de gebruiker wel kan verande- 
ren zijn met gestippelde lijnen aange- 
geven. 


DUBBELE INFORMATIE 


Maar er was nog een pointer; deze wees op 
de “line A variabelen’. Deze variabelen 
bevatten informatie voor de teken- en 
tekstfunkties. 
Na enige studie bleek dat GEM en TOS 
niet direkt naar de fonts in ROM verwij- 
zen, maar dat ze van de systeemfonthea- 
ders een werkkopie in RAM hebben ge- 
maakt. Om de pointers naar deze in RAM 
staande fontheaders te vinden, komt die 
tweede variabele van pas. De pointers 
naar deze fontheaders zijn te vinden op: 
* AO - 460: pointer op de 8x16 fontheader 
in RAM 
* A0 - 456: pointer op de 8x8 fontheader 
in RAM 


* AO - 452: pointer op de 6x6 fontheader 
in RAM 


(En AO is hierbij het adres van de “line 
A variabelen”) 

Het heeft geen zin om deze pointers te 
veranderen: ze zijn alleen ter informatie 
en worden verder niet gebruikt. De 'echte’ 
fontheaderpointers staan in ROM. Weer 
een aanpak die mislukt. 


DIK TEVREDEN 


Dan is de enige oplossing voor ons pro- 
bleem om over de bestaande fontheader in 
RAM een nieuwe fontheader te zetten. 

Meestal is het niet nodig om een font (in- 
klusief header, character- en horizontal 
offset table en fontdata) te schrijven. Als 
alleen de fontdata veranderd worden, zijn 
we al dik tevreden. Het gevolg van het 
veranderen van alleen de fontdata is dat 
het font z’n oorspronkelijke afmetingen 
behoudt, maar een ander uiterlijk krijgt. 


Zo is het bijvoorbeeld mogelijk om Griek- 
se of horror-letters te maken. Om het 8x16 
systeemfont door de zelfgedefinieerde 
fontdata te vervangen, is de volgende GfA- 
instruktie nodig: 

Lpoke _Lpeek(Lnavar% - 460)+76, 
Varptr(Eigenfont$) 

Waarbij Lnavar de variabele is die via de 
routine van listing twee kan worden ver- 
kregen en waarbij Eigenfont$ een string 
van 4096 bytes groot is waarin de fontdata 
staan (zie listing drie). 

Natuurlijk kan dit ook in de taal C: 

* (long *) (16 + *(long *) (lnavar-460)) = 
(long) &eigenfont; 

We krijgen het systeemfont later weer te- 
rug door: 

* (long *) (76 + *(long *) (Inavar-460)) = * 
(long *) (h8x16+76); 

Hier is “eigenfont” bijvoorbeeld gedecla- 
reerd als 

char eigenfont[4096]; 

Het GEM font wordt in C bij de funktie 
‘v-gtext()’ en in GfA bij de funktie ‘text’ ge- 
bruikt. Alle bekende effekten (bold, kur- 
sief, vergroten) blijven na het veranderen 
van de fontdata mogelijk. Rest nu nog een 
ander soort font: het TOS-font. 


KLEINE LETTERS 


Programma's met de extensie TTP of TOS 

maken geen gebruik van GEM. Ze zijn 

daardoor wat sneller in hun tekstbehande- 

ling. TOS maakt dan ook geen gebruik van 

fontheaders, maar van een viertal andere 

variabelen. 

* A0 - 22: fontdata pointer 

* A0 - 40: aantal bytes opschuiven voor een 
nieuwe regel 

* A0 - 42: aantal regels op het beeldscherm 
-l (normaal 24) 

* A0 - 46: hoogte van de karakters 


de.n $A000 
rts 


AB: adres line Â variabelen 


System font opbouw 


Al: pointer naar 3 adressen van system font HERDERS 


66 system font header 


+76 = 6%6 systen fontdata pointer 


BB system font header 


+76 = BB system fontdata pointer 


816 system font header 


+76 = BR16 system fontdata pointe 


AB-460 816 font header pointer 
AB-452 BRB font header pointer 
AB-456 66 font header pointer 


6X6 font header 

+76 = 6%6 fontdata pointer 

BB font header 

+76 = BXB fontdata pointer 

816 font header 

+76 = BX16 fontdata pointer 


LISTING 1 


WET rr rnrhnrhnnhnkhihthhdhhhhdhhdhdd 
zet FONT EDITOR + 
DO. à door Karl Moens * 
TRR EEE EEE EE 
If Xbias(4)<>2 Then 

Setcolor 3,7,0,0 

Setcolor 0,0,7,0 

Alert 3,"The FONT-EDITOR needs: hi 
gh resaolution.",1,"Sorry",Dummy 

Setcolor 3,0,0,0 

Setcolor 0,7,7,7 

End 
Endif 
On Break Gosub Quit 
Gosub Find system font 
Dim FantX(1024) ‚Men _tree$(40) ,Help$(2 
4),Edit fieldh(9,17) 
Arrayfill Font4(),0 
Afrayfill Edit _field4(),0 
Far T=0 To 21 

Read Help$(T) 
Next T 
Data "een ve un be en er on en en en 
Data “Load a fant from diskito be edi 
ted." 
Data "Save a font on disk!to be used 
later." 
Data “This BASIC-program will allowiy = 
ou to use the new fontstin your own p = 
rograms." 
Data "tunen 
Data "Mave a character intoithe edit 
field.!Just click on the characteriyo = 
u want to edit." 
Data "Move a character fromithe edit 
field into theifont table." 
Data “Delete the character in theiedi 
t field." 
Data "Black becomes white.iWhite beco 
mes black." 
Data "Shift the character in theiedit = 
field 1 pixel.iUse the arrow keys.iC = 
lick ta end." 
For T=0 To 40 

Read Men_tree$(T) 

Exit If Men _tree$(T)="#tt" 
Next T 
Gosub Set system font 
Menu Men_tree$() 
Gosub Find system font 
Read Off 
While Off<>-1 

Menu Off,‚2 

Read Off 
Wend 
Data DESK, 


’ ’ L | il ' ' ' 

Data FILE, Load Font , Save Font , = 
Save Program , Quit ,"* 

Data EDIT, Laad Char , Save Char , 
Delete Char , Inverse Char , Shift = 
Char „* 

Data HELP, More Help 

Data 12,18,19,20,21,-1 

Deffill 1,2,4 

Prbox 5,25,635,395 

Defline 1,3 


Fant Editor ‚--------- DDS 


EEE 
eh Mah 


6%6 systenfontdata 
BB systenfontdata 
BR16 systenfontdata 


FIGUUR 2 


Rbox 5,25,635,395 
Defline 1,1 
Xbox=20 
Ybax=80 
Unit=10 
Deffill 1,0 
Pbax Xbox,Ybox,Xbox+B#Unit,Ybox+i6tUnit 
Graphmode 2 
Deftext 1,1,0,20 
Text 140,50,340," IMPERIAL DELTRONICS" 
Deftext 0,16,0,20 
Text 220,80,180,"FONT EDITOR" 
Deftext 1,0,0,20 
Text 219,80,180,"FONT EDITOR" 
Graphmode 1 
For X=t To 7 

Line XboxtUnit#X,Ybax,XboxtUnitsX,Y => 
boxtUnit*16 
Next X 
For Y={ To 16 

Line Xbox,YboxtUnit#Y,XboxtUnit#B,Y => 
boxtUnitxY 
Next Y 
Pbox 14,260,626,360 
For X=t Ta 50 

Line 144+X#12,260,14+X#12,360 
Next X 
For Y=1 To 4 

Line 14,260+Y#20,626,260+Y#20 
Next Y 
Font _adres=Varptr (FantX(0)) 
Gosub Set user font 
Bosub Show font 
Gosub Set system font 
Let Potlaod$=Mki$(O)+Mki$(1S5) +MKiS$(I) 
Let Potlood$=Potlood$t+Mki$(O)+Mki$(1) 
For I%=1l To 16 

Read Hinten 

Let Potlood$=Potlood$+Mki$(Hinten) 
Next IX 
For I%=1 Ta 16 

Read Vorn 

Let Patlaod$=Potlood$+Mki$(Vorn) 
Next I% 
Data 30,63,127,255,511,1022,2044,4088 = 
‚8176,16352,32704,65408,465280,65024,6 = 
4512,63488 
Data 0,28,38,74,146,292,584,1168,2336 
‚4672,15488,17664,17920,25600,30720,0 
On Menu Ibax 1,Xbox,Ybox,Unit#B, Unite 
16 Gosub Teken start 
On Menu Ibox 2,14,260,612,100 Gosub K 
ies start 
On Menu Gosub Keuze 
On Menu Message Gosub Mouse click 
Do 

On Menu 

If Mousek 

Gosub Mouse click 

Endif 
Loop 
Pracedure Teken start 

Defmouse Potlood$ 

Let In_box_flag=! 

On Menu Obox 1,Xbox,Ybox,Unit#8B,Uni = 
t*16 Gosub Teken end 
Return 
Pracedure Teken end 


Het TOS-font kan in GfA via ‘print’ en in 
C via printf)’ worden aangeroepen. Het is 
niet mogelijk om het TOS-font bijvoor- 
beeld kursief te laten verschijnen. Dit kan 
alleen met een GEM-font. In mo- 
nochroom zal A0 - 22 een pointer bevatten 
naar het 8x16 systeemfont, in kleur naar 
het 8x8 font. 

Er bestaat een leuk truukje om in mo- 
nochroom niet het 8x16 font te gebruiken, 
maar het 8x8 font. Buiten het instellen op 
de 8x8 fontdata is het noodzakelijk om de 
hoogte van de karakters aan te passen (8) 
en het aantal regels en op te schuiven bytes 
te veranderen (bijvoorbeeld in respek- 
tievelijk 49 en 640). Deze methode wordt 
onder andere in de GfA-BASIC interpre- 
ter toegepast bij ‘text 16’ en ’text 8’. In de 
listings drie en vijf ziet u andere voor- 
beelden. 

Het is niet mogelijk om het 6x6 systeem- 
font als TOS-font te gebruiken: de breedte 
van de karakters moet altijd 8 bits zijn. 
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Defmouse 0 
Let In _box_flag=0 
On Menu Ibox 1,Xbox,Ybox,Unit#*8,Uni => 
t*16 Gosub Teken start 
Return 
Procedure Kies start 
Defmouse 3 
On Menu Obox 2,14,260,612,100 Gosub => 
Kies end 
Let In_box _flag=2 
If Char _edit_flag=0 
Alert 2,"Do you want to move: =h 
a character! TO or FROM: the Edit => 
Field?",‚1,"ToiFrom",Char edit flag 
Font edited flag=! 
Defmouse 3 
Menu 16+Char edit flag,! 
Menu 19-Char edit _flag,0 
Endif 
Return 
Procedure Kies end 
Defmouse 0 
Let In_box_flag=0 
On Menu Ibox 2,14,260,612,100 Gasub => 
Kies start 
Return 
Procedure Mouse click 
If In_box_flag 
Klik=Mousek 
If In_box_flag=! 
Pos_x=Int((Mousex-Xbox)/Unit)+1 
Pos_y=Int((Mousey-Ybox)/Unit) +1 
If Pos_x>0 And Pos_x<9 And Pos_ 
y>0 And Pos_y<17 
If Kliks=i 
Let Edit field4(Pos_x‚Pos_y)=1 
Deffill 1 
Pbox Xboxt(Pos_x-1)&Unit+t1, = 
Yboxt(Pas_y-1)tUnitt1,XboxtPos xt*Unit = 
=1,YboxtPos_ytUnit-1 
Endif 
If Klik=2 
Let Edit field4(Pos_x,Pos_y)=0 
Deffill 0 
Pbox Xbox+(Pas_x-1)tUnitt1, => 
Ybaxt(Pas_y-1)tUnitt1,XboxtPos x*Unit => 
=1,YboxtPos _ytUnit-1 
Endif 
Endif 
Else 
Code _char=Int((Mousex-14)/12)+5 =) 
ieInt(((Mousey-260)/20)) 
If Char edit _flag=i 
Gosub Set edit field(Code_ char) 
Gosub Show _char 
Else 
Gosub Change_faont (Code_char) 
Endif 
Endif 
Endif 
Return 
Procedure Keuze 
Keuze=Menu (0) 
If More help _flag 
On Keuze Gosub Du,Du,Du,Du,Du,Du, => 
Du,Du,Du,Du,Help,Help,Help,Du,Du,Du,H => 
elp‚Help,Help,Help,Help,Du,Du,Du 
Endif 


> 
> 


On Keuze Gosub Font editor,Du,Du,Du => 
‚Du,Du,Du,Du,Du,Du,Load font,Save fon => 
t‚Save_program,Quit,Du,Du,Load char,S => 
ave_char,Delete char,Inverse _char,Mov => 
e_char,Du,Du,More help 
Return 
Procedure Du 
Return 
Pracedure Help 
Alert Ó,Help$(Keuze),1,"OKiCancel", => 
Antwoord 
If Antwoard=2 
Keuze=2 
Endif 
Return 
Procedure More help 
Alert 2,"Do you want Help-messages! => 
to appear automatically?"”,‚1,"YesiNo", => 
Antwoard 
If Antwoord=1 
More help flag=1 
Menu 23,1 
Else 
Menu 23,0 
More _help_flag=0 
Endi f 
Return 
Procedure Font editor 
Alert 0," IMPERIAL DELTRONICS: => 
Presents! a F.I,R.M.A. programiF 0 => 
NT ED ITO R",1,"= 1986",Antwoord 
Return 
Procedure Load _font 
Antwoord=1 
If Font flag 
Alert 1,"Loading a new font will: => 
replace the existing one.",‚1,"OK!Abor => 
t"‚Antwaard 
Endif 
If Antwoord=1 
Fileselect "\#,fnt”,"SYSTEM.FNT", => 
Font_naam$ 
If Font _naam$="" 
Goto Proc load font einde 
Endif 
If Not (Exist(Font_naam$)) 
If Right$(Font_naam$,10){>"SYST => 
EM, ENT" 

Alert 2,"This font does not e = 
xist.iDo you want to create it?"‚1,"Y => 
esiNo",Antwoord 

d If Antwoord=2 
Goto Proc load font einde 
Endif 
Arrayfill Font4(),0 
Else 
Fant _adres=Varptr (Fant%(0)) 
For T=0 To 4095 Step 4 
Lpake Font adres+T,Lpeek(Sy => 
s_font+T) 
Next T 
Endif 
Else 
Font_adres=Varptr (Font%(0)) 
Bload Font _naam$, Font adres 
Endif 
Font _flag=! 
Fant saved _flag=i 
Font edited _flag=0 
Char ascii=0 
Char edit _flag=0 
Gosub Set user fant 
Gosub Show font 
Arrayfill Edit field4(),0 
Gosub Show char 
Gosub Set system font 
Menu 12,3 
Menu 18,3 
Menu 19,3 
Menu 20,3 
Menu 21,53 
Menu 17,0 
Menu 18,0 
Endif 
Proc load font einde: 
Return 
Procedure Show all _char 
For T0=0 Ta 254 
Gosub Set edit field(TO) 
Gosub Show char 
Next TO 
Return 
Procedure Show font 
Deftext 1,0,0,13 
Graphmode 1 
For Y=0 Ta 4 
For X=0 To 50 
Text 17+X#12,276+Y#20,Chr$(Y#51+x) 
Next X 
Next Y 


Return 
Procedure Find system font 
Let Sys _font=Lpeek (&H607E) 
Return 
Pracedure Set user font 
Lpoke &H607E,Font adres 
Return 
Procedure Set system font 
Lpoke &H607E,Sys_ fant 
Return 
Procedure Show _char 
Deffill 1,2,8 
For YX=1 Ta 16 
For XX=1 To 8 
If Edit field4(XX,Y%) 

Deffill 1 

Pbax Xboxt(X%-1)Unit+1,Ybaxt => 
(YL-i)kUnit+l, XboxtXAtUnit-1,YboxtYZe => 
Unit-1 

Else 

Deffill 0 

Pbox Xboxt+(X%-1)Unit+1,Yboxt => 
(YL-1) kUnit+1,XboxtXZeUnit-1,YboxtYZe => 
Unit-1 

Endif 
Next X% 
Next Y4 
Return 
Procedure Set edit field(Code) 
Font _adres=Varptr (FontZ(0)) 
Start adres=Font adrestCode 
For T4=0 To 15 

Muster$=Right$("00000000"+Bin$(Pe => 
ek(Start adres+T4#256)) ,8) 

For Ti%=1 To 8 

Let Edit fieldX(T1%,TA+i)=Val(M => 
id$(Muster$,T14,1)) 

Next T1% 

Next T4 
Return 
Procedure Change _ font (Cade) 
X=Int ((Mousex-14)/12) 
Y=Int ((Mousey-260)/20) 
Font _adres=Varptr (Font%(0)) 
Start adres=font adres+Code 
For TX=0 To 15 
T$="&x" 
For Ti%={ To 8 
T$=T$+Str$(Edit fieldA(T1%,T4+1)) 
Next T14 
Poke Start adres+T4#256,Val (T$) 
Next TZ 
Gosub Set user font 
Deftext 1,0,0,13 
Graphmode 1 
Text 17+X#12,276+Y#20,Chr$(Code) 
Gosub Set system font 
Return 
Procedure Save font 
Antwoord=1 
If Font edited _flag=0 And Font save => 
d_flag=! 

Alert 1,"This font has not been e => 
ditedisince it was last saved.",2,"Co => 
ntinueiAbort",Antwoord 

Endif 
If Antwoord=1 

Fileselect "\#.fnt","USER.FNT",Fa => 
nt_save_naam$ 

If Font save _naam${>"" 

If Exist(Font save _naam$) 

Alert 1,"A font with this naa => 
eialready exists.:It will be overwrit => 
ten. ",2,"OKiAbart” ‚Antwoord 

If Antwoord=2 

Goto Proc save font einde 

Endif 

Endif 

Font _adres=Varptr (FontX(0)) 

Bsave Font save _naam$,Font adre => 
5,4096 

Font edited _flag=0 

Font saved _flag=! 

Font _naam$=font save _naam$ 

Endif 

Proc _save_font einde: 

Endif 

Return 

Pracedure Load char 
Char edit _flag=1 
Font edited _flag=! 
Menu 17,1 
Menu 18,0 

Return 

Procedure Save char 
Char edit _flag=2 
Font edited flag=i 
Menu 17,0 
Menu 18,1 

Return 


Procedure Quit 
If Font saved _flag=0 And Font _edite => 
d_flag=! 
Alert 1,"This font has not!yet be => 
en saved.",1,"SaveiQuitiAbort",Antwoord 
If Antwoord=1 
Gosub Save font 
Gosub Quit 
Endif 
If Antwoord=2 
Antwoord=1 
Gosub Einde 
Endif 
Else 
Antwoord=2 
Gosub Einde 
Endif 
Return 
Procedure Einde 
If Antwoord<>1 
Alert 2,"Are you sureiyou want to => 
quit?",2,"YesiNo",Antwoord 
Endif 
If Antwoord=| 
Gosub Set system font 
Deffill 1,2,8 
Graphmode 1 
For T=i Ta 32 
Pbox 320-T#10,200-T#4.5,320+T#1 => 
0,200+T*6.5 
Next T 
End 
Endif 
Return 
Pracedure Delete _char 
Alert 2,"Are you sure you wantito d => 
elete this character?",2,"YesiNo",Ant => 
woord 
If Antwoord=1 
Arrayfill Edit fieldX(),0 
Gosub Show_char 
Endif 
Return 
Procedure Inverse_char ° 
For TX=1 To 16 
For Ti%={ To 8 
If Edit fieldX(T1%,T%) 
Let Edit field4(T14,T4)=0 
Else 
Let Edit fieldX(T1%,T%)=1 
Endif 
Next T14 
Next TZ 
Gosub Show char 
Return 
Procedure Move _char 
Null$=Chr$(0) 
Proc_move_char start: 
Repeat 
A$=Inkey$ 
Until A$4>"* Or Mousek 
If Mousek Or Az15 
Goto Proc _move_char einde 
Else 
If A$=Null$+"H" 
For Ty4=0 To 15 
Far Txú=1 To 8 
Let Edit field4(Tx4,Tyx)=Ed" => 
it _field(TxX,Tyx+1) 
Next Tx% 
Next Tyz 
For Tx=i To 8 
Let Edit field4(Tx%,t6)=Edit => 
field4(Tx4,0) 
Next Tx4 
Endif 
If A$=Null$+"P" 
For TyX=17 To 2 Step -1 
For Tx4={ To 8 
Let Edit field4(Tx%,Ty4)=Ed => 
it field(Tx%,TyZ-1) 
Next Tx 
Next Tyz 
For Tx4=1 To 8 
Let Edit field4(Tx%,i)=Edit f => 
ieldX(Tx%,17) 
Next Tx% 
Endif 
If A$=Null+"M" 
Far Ty4=1 To 16 
For Txí=9 To 1 Step -1 
Let Edit field4(Tx4,TyX)=Ed => 
it _fieldA(Tx4-1,Tyx) 
Next Txz 
Next Ty% 
For TyZ=1 To 16 
Let Edit fieldi(t,TyX)=Edit f => 
ield4{9,Tyx) 
Next TyX 
Endif 


GEBRUIKSAANWIJZING 
FONT-EDITOR 


Dit programma stelt u in staat om de 
karakterset van de ST te verande- 
ren. Het programma is alleen ge- 
schikt voor gebruik met een mo- 
nochrome monitor. De fonts die het 
produceert, zijn echter geschikt 
voor alle resoluties. 

De font-editor maakt gebruik van 
een standaard menu-balk. Hierin 


treft u de volgende mogelijkheden 


aan: 


DESK MENU 
FONT EDITOR: Er verschijnt een 
alertbox met een copyright mededeling. 


FILE MENU 

LOAD FONT: Via een zogenaamde ’file 
selector’ kunt u een font van een diskette 
in het geheugen laden. Wanneer u nog 
geen font bezit, kunt u altijd de standaard 
karakterset van de ST laden. Deze haalt 
het programma namelijk uit ROM. De file 
selector biedt uit zichzelf de keuze voor 
SYSTEM.FNT al aan. U hoeft in dat geval 
dus alleen op “OK” te klikken. 

SAVE FONT: Door middel van deze 
funktie kunt u een zelfgemaakte karakter- 
set op een schijf vastleggen. Als u .FNT’ 
aan de bestandsnaam toevoegt, zal de 
funktie LOAD FONT uw karakterset in 
het vervolg automatisch in de file 
selector plaatsen. 

SAVE PROGRAM: Deze funktie schrijft 
een GfA-BASIC utility op uw schijf. Hier- 
door kuntu gemakkelijk een zelfgemaakte 
karakterset in een eigen programma 
opnemen. 

Zorg ervoor dat de routine in uw program- 


Karl Moens 


73476 butes used in 21 items 


ma als eerste wordt uitgevoerd. U moet zelf 
aangeven hoeveel fonts u wilt gebruiken 
en wat de namen van de fonts zijn. 
Dus: 

[aantal fonts], [naam font 1], [naam font 2] 
etc. 

In uw eigen deel van het programma ak- 
tiveert u een bepaalde karakterset met 
de opdracht 

Gosub Set-user-font(font nummer) 
Alle karakters die via het BASIC-woord 
‘Text’ naar het scherm gestuurd worden, 
zullen hierna in uw eigen font worden 
weergegeven. U moet de hoogte van de 
karakters tenminste op dertien zetten. 
QUIT: U keert terug naar de desktop. 


EDIT 
LOAD CHAR: Klik op het karakter uit de 
tabel dat u wilt veranderen. Hierdoor 
komt er een kopie van het karakter in de 
editor te staan. 

Ontwerpen doet u met de muis. De lin- 
kerknop maakt een pixel zwart: de rechter 
produceert wit. 
SAVE CHAR: Kopieer het karakter uit de 
editor naar de tabel door op de gewenste 
bestemming te klikken. 
INVERSE CHAR: Alle zwarte pixels van 
het karakter in de editor worden wit en 
vice versa. 

DELETE CHAR: Wist de editor. 
MOVE CHAR: Verschuift het karakter in 
de editor een pixel. De cursortoetsen be- 
palen de richting van de verschuiving. 
Door “enter”, “return” of een muisklik 
wordt deze funktie beëindigd. 


HELP 

MORE HELP: Als deze funktie aktief is, 
toont het programma bij gebruik van an- 
dere opties voortaan alertboxen met 
korte instrukties. 


k (EES 
642970 bytes used in 59 ite 


OEGFOR BAS 
FOnTCoN BAS 
FONTOERD BAS 
SPPITE2 BAS 
CLASSIC FDA 
CUrSIvE FOR 


KIGEP _ FOR 
LUGUBEN FOR 

nets MASH FOR 
PETN SHR0OW FUR 


FONED) id dE STENCIL FOAR 


ZONDE ai | Sten Fo 
GEEN 


bliss fùj UESKTOP MF 
Elte #02 E __Fonrcon PMC 
Ket OP MW FNTOERD 105 
Leet Pj 3  _seT_FONT TIP 


2294 GPOENEBD DOC 
5038 UrARG ENT 
3036 SETUP IC 
2376 DESKTOP INF 
40% ACCLOAD KOL 
4096 FLOP KOL 
4096 Moens KOL 
4096 RCCLOAD LST 
406 FLOP LST 
40% hoens __LST 
4096 Cursus52 PCI 
60% Cursus50 P 15 
40% CUrsusIL PTS 

424 FIGUUCL PLS 
11772 FIGUUP2 PI3 
3893 BTut2 PPG 


cursus PPG 


dl fd 
sli Ad Js 
Stell fid Je 
HSE Md WE 


ti) OF JD blos Pis 
destine lr Ertl Fa PS 
Fuste) Pio 172 Feu Pe 
ENDE 1 di BZ  n 
Ser JE BSD Zin 


gelde pe 
BIS) Pi 


If A$=Null$+"K" 
For Ty4=i To 16 
For Tx4=0 Ta 8 
Let Edit fieldu(Txk,Ty4)=Ed => 
it fieldü(Tx4+t1,Ty4) 
Next Tx4 
Next Ty 
For Ty4=1 Ta 16 
Let Edit fieldX(8,Ty4)=Edit f => 
ield4(0,Ty4) 
Next Ty% 
Endif 
Endif 
Gasub Show char 
Goto Proc _move_char start 
Proc_move_char einde: 
Return 
Procedure Save _pragram 
Fileselect "\#‚Ist","USER.LST",Prag => 
_save_naam$ 
If Prog save _naam${>"" 
If Exist (Prag save _naam$) 

Alert 1,"A program with this na => 
meialready exists. ilt will be overwri => 
tten.",2,"OKtAbort",Antwoord 

If Antwoord=2 

Goto Proc save program einde 

Endif 

Endif 

Open "0",#1,Prog save _naam$ 

Print #1;""* 

Print #1;"' IMPERIAL DELTRONICS F => 
ONT-EDITOR APPLICATION PROGRAM * 

Brint. Wis: 

Print #1;"' INITIALISATION" 

Print #1;"Let Sys _font=Lpeek(&H60 => 
LENS 

Print #1;"Restore Font data section" 

Print #1;"Read Number of fonts" 

Print #1;"Dim Font4(1024,Number o => 
f_fonts-1)" 

Print #1;"Dim Font adres(Number o => 
f_fonts-1)" 

Priänit, klan” "20 

Print #1;"’ HERE FOLLOWS THE FONT => 
DATA SECTION WITH THE FOLLOWING FORMAT" 

Print #1;"’ FIRST ENTRY : NUMBER => 

OF FONTS" 
Prints Aly 


SECOND ENTRY : FILENA =} 


ME OF FIRST FONT" 
Print #1;"” 


THIRD ENTRY 
ME OF SECOND FONT" 

Print #15" ETC. 

Print #1;"Font_data_section:" 

Print #1; "DATA" 

Prjfn ELSE 

Pränt, Wijs’ 
DISK" 

Print #1;"FOR I=0 TO NUMBER OF FO 
NTS-1" 

Print #1; "Font adres{(I)=Varptr (Fo = 
nt4(0, DD)" 

Print #1;"Read Font _name$" 

Print #1;"Bload Font _name$,Font_a 
dres(I)" 

Print #1;"Next I* 

Prantesign 

Print? HIj 
OGRAM" 

Print #1;"Goto Your program _conti = 
nues _here" 

Print #1;*"* 

Printed ne 
UL PROCEDURES" 

Prine 

Print #13" CALL THIS PROCEDURE B => 
EFORE USING YOUR OWN FONT" 

Print #1;"' ARGUMENT = FONT NUMBER" 

Print #1;"Procedure Set user font => 
(Font number)" 

Print #1;"Lpoke &H607E,Font adres => 
(Fant _number-1)" 

Print #1; "Return" 

Printakts 

Print #1;"’ CALL THIS PROCEDURE W => 
HEN YOU WANT TO USE THE SYSTEM FONT" 

Print #1;"” AND IN ANY CASE BEFOR => 
E QUITTING YOUR PROGRAM" 

Print #1;"Procedure Set system font” 

Print #1;"Lpoke &H607E,Sys_font" 

Print #1; "Return" 

Brin Ais" 

Print #13"’ 
S HERE" 

Print #1; "Your program _continues_ 
here: * 

Close #1 

Endif 
Proc save program einde: 

Return 


: FILENA => 


ETC." 


LOAD YOUR FONTS FROM 


CONTINUE WITH YOUR PR 


HERE FOLLOW SOME USEF = 


YOUR PROGRAM CONTINUE => 


LISTING 2 


“ FONT MANIPULATING UTILITY 
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““Lnavar-22 : TOS- fontdata pointer 
“ Lnavar-40 : (16 bits) TOS- aantal bytes opschuiven vaar nieuwe regel 
“ Lnavar-42 : (16 bits) TOS- aantal regels op het scherm — 1 
Lnavar-46 : (16 bits) TOS- hoogte van de letters 
“ Lnavar-460: GEM- 8*16 fontheader pointer 
“ Lnavar-456: GEM- 646 fontheader pointer 
“ Lnavar-452: GEM- 8#8 fontheader pointer 
‘ Lpeek{(Lnavar-460)+76: GEM- Bt16 fontdata pointer (veranderbaar) 
“ Lpeek(Lnavar-456)+76: GEM- 646 fontdata pointer ( s ) 
‘ Lpeek(Lnavar-452)+76: GEM- 848 fontdata pointer ( e 
‘ Hóxé t bt6 systemfont header (in ROM) 
HBxB : 8#8 systemfont header (in ROM) 
“_HBxlé 1 8*16 systemfaont header (in ROM) 
“ Lpeek(H6x6+76) 1: bk6 systemfont fontdata pointer (in ROM) 
‘ Lpeek(HBx8+76) : 848 systemfont fontdata pointer (in ROM) 
Lpeek(HBxi6+76): B*16 systemfont fontdata pointer (in ROM) 


Fontptr$=Mki$(&HAOOO)+Mki$(KH2009)+MKi$(HH4E7S) ! 2 stukjes machinetaal 
Lnavar$=Mkif(&HA000) +Mki$(&H4E7S) ! uitvoeren 
Fontptr%=Varptr (Fontptr$) 

Fontptr&=C:Fontptr%() 

Lnavar%=Varptr (Lnavar$) 

Lnavar%=C:Lnavar%() 


Hóxó=Lpeek (Fontptr%) 
Hex8=Lpeek (Fontptr%+4) 
HBx1é=Lpeek(Fantptr%+8) 


LISTING 3 


ZET FONT MANIPULATING UTILITY HIERVOOR! 
“ Start monochroom font voorbeeld 
Zet GEM font op een adres met eigen fontdata 


Deftext „4 1 GEM text in italics 

Ffont$=Space$ (4096) ! ruimte voor font 

Ffont%=Varptr (Ffont$) 

Bmove Lpeek (HBx16+76) ‚Ffont%,4096 ! kopieer 8*16 systemfont naar ons fontje 


For X4=0 To 15 Step 2 
For Y4=0 To 255 


Poke Ffont+X4#256+Y4,0 ! streepjes font maken 
Next YZ 
Next X% 
“ Bload "FONT.FDA",Ffont% ! methode om FDA-font te laden 
Lpoke Lpeek(Lnavar%-460)+76,Ffont% ! verander B*16 GEM fontdata pointer 
Text 100,100,"ABC,,, (GEM-font is veranderd)" 


Lpoke Lnavar%-22,Ffont% 
Print "ABC... (TOS-font is veranderd)" 
Void Inp(2) 
“ Zet alles weer normaal 
Cls 
Lpoke Lpeek(Lnavar%-460)+74,Lpeek (HBx16+76) 
LpokerLnavar%-22,Lpeek (HBx16+76) 
Print "ABC... (TOS-font weer normaal)” 
Text 100,100,"ABC... (GEM-font weer normaal)" 
Vaid Inp(2) 
“ Verander TOS font in 8x8 font 
Cls 
Lpoke Lnavar4-22,Lpeek (H8x8+76) ! zet TOS fontdata pointer op 8*8 fontdata 
Dpoke Lnavar%-46,8 ! 8 bits haog 
Dpoke LnavarX-40,80 1 80 bytes = 1 bit omlaag opschuiven 
Dpoke Lnavar%-42,150 ! 150 regels van 1 bit 
For X=0 To 140 
Print "Soft scrolling 8x8 font” 
Next X 
‘ Verander GEM font header 
Gemheader$=Spacef (88) 
Bmove Lpeek(Lnavar%-460),Varptr (Gemheader$),88 ' kopieer header 
A=2 
Repeat 
If A=2 
Bmove HBx8+2,Lpeek (LnavarX-4460)+2,82 
Else 
Bmove H6xé+2,Lpeek (Lnavar%-460)+2,82 
Endif 
Alert 1,"Welk font ?",1,"bx6iBxBIExit",A 
Until A=3 
Bmove Varptr (Gemheader$) ‚Lpeek (LnavarX-460),88 !' en weer terugzetten 
Stap 


LISTING 4 


‘ Degas - FDA converter 


! verander TOS fontdata pointer 


! 8x8 systemfont header 


! 6xb systemfont header 


Zet hiervoor ‘FONT MANIPULATING UTILITY" 


Fileselect "\#,FNT","",Degasnm$ 
If Degasnm$<>"" 
Open "I"‚#1,Degasnmf ! lees Degas font in 
Degasf$=Input$(2048,#1) 
Close #1 
Degas%=Varptr (Degas$) 
Fda$=Spacef (4096) ! ruiate voor nieuw font 
Fda%=Varptr (Fdaf) 
Bmove Lpeek(H8xi6+76),FdaX,4096 ' kopieer systemfont naar ons font 
Print "Converting..." 
For X4=0 To 127 
For Y%=0 Ta 15 
Poke Fdak+Y4#256+X%,Peek(Degask+XX8l6t+YX) ! converteren... 
Next YZ 
Next X% 
Lpoke Lpeek (LnavarZ-460)+76,Fdax ! laat eventjes zien 
Fileselect "\x,FDA","",‚Fdanm$ 
If Fdanm${>"* 
Bsave Fdanm$,Fda%,4096 
Endif 
Lpoke Lpeek(LnavarX-460)+76,Lpeek(HBx16+76) ! en weer terugzetten 
Endif 


LISTING 5 


{* FONT MANIPULATING UTILITY Egon Lubbers, '87 #/ 
long héx6, h8x8, h8xi6, Inavar; 


get _fntvar () 
{ 
register long rega0, regal; 


asm{ /* MEGAMAX ALLEEN ! #/ 
dew OxA000 
move.l AO,rega0 
move.l Al,regai 
} 
lnavar = rega0; 
héxé = tregaltt; 
h8x8 = tregaltt; 
h8xi6 = tregal; 


+ 
È 


main () 
{ 


int is; 


get _fntvar(); 
* (lang *) (lnavar-22L) = #(long *) (hBx8+76L); 


/* FDA adres veranderen */ 
* (int &*) (lnavar-46L) = 8; 
/* hoagte karakters */ 


* (int #) (lnavar-40L) = 640; 

/* aantal bytes opschuiven #/ 
* (int &) (lnavar-42L) = 49; 

/+* aantal regels */ 


for (i = Ozi € 1003++i) 
printf ("Regel %d in beeld\n",i); 


puts("Press RETURN"); 
while ({char) gemdos{(1) != 135); 


* (long *) (lnavar-22L) = #(long #)(hBx16+76L):; 
/* en alles weer herstellen #/ 


* (int &) (lnavar-46L) = 16; 
* (int #) (lnavar-40L) = 1280; 
* (int #) (lnavar-42L) = 24; 


LISTING 6 


; Egon Lubbers’ font changing utility (START #6) 


; Dit programma verandert het 8xié systemfont in 
; het font waarvan de naam ingetikt 

3 (in de desktop: TTP ') moet worden. 

; Font moet in dezelfde 

; directory staan als dit prograama 


fopen equ $3D 
fread equ $3F 
fclose equ $3E 
keep equ $31 
font: bra instal 
ds.b 4096 ; ruiate voor font (slordig) 
instal: move.l 4(sp),a3 : open font 
clr.w =(sp) 
pea 129 (23) 
aove tfopen,- (sp) 
trap #1 
addq.l #8,sp 
tst dû 
bai exit ; error ? 


nove dû,dé 


aove.l #font,-(sp) : lees font 
move.l #4096,-(sp) 
aove dé,- (sp) 


aove #fread,- (sp) 
trap #1 
add.l #12,sp 
tst dû 
bmi exit 
move dé,-(sp) : close font 
move #fclose,- (sp) 
trap #1 
addg.l #4,sp 
de.w $A000 : en installeren 
move.l —-460(a0),at 
move.l #font,76(ai) : in GEM 
move.l #font,-22(a0) ; en in TOS 
clr =(sp) ; en bewaar de data 
move.l #instal-font+256,-{(sp) 
move #keep,-(sp) 
trap #1 
exit: clr =(sp} ; als er iets fout is gegaan... 
trap &L 


end 


Dit is een test van een desktop-publishing- progra mma. 
Maar niet zomaar een test. Uw recencent werd op slag 
verliefd op dit programma en van enige obje ktiviteit is 
dan ook geen sprake meer. Maareersteven de zakelijke 
gegevens. Publishing Partner iseen progra mma van Soft 
Logic, dat door SoftST uit Amsterdam op de markt 
wordt gebracht. En om u maar gelijk ui tde droom te hel- 
pen: dit is een programma om nooit meer mee op te houden, zo mooi. 
Ben je eenmaal bezig dan zullen je partneren je bed je lange tijd niet 
zien, behalve die ene partner: Publishing Partn er. Het begint al bij het 
uitpakken van het programma. Een keurig v erzorgde handleiding (in 
het Engels, dat wel) straalt je tegemoet. Een handleiding, ik kan niet an- 
ders zeggen, die zeer helder geschreven is . Zo helder, dat ik meteen al 
dacht: dit is niet door een software-ontwi kkelaar geschreven, maar door 
een professionele tekstschrijver. En d at blijkt ook zo te zijn. Dames en 
heren software-ontwikkelaars, hierk untu wat van leren. Denk niet: zo'n 
handleidinkje kan ik zelf wel in elkaar flansen, want dat kunt u niet. 
Laat het schrijven aan mensen o ver die daarvan hun professie hebben 
gemaakt. Wij schrijvers mak en toch ook geen ingewikkelde com- 
puterprogramma's; dat laten we met plezier aan u over. Veel gebruikers 
zullen u dankbaar zijn. 
Voor degenen die nog n iet weten wat Desktop Publishing eigenlijk is, 
een kleine uitleg. DP (zo noemen we het voor het gemak maar even, 
want ik breek mijn vi ngers over die woorden) is tekstverwerken, illustre- 
ren en pagina'sop maken in één. Met zo'n programma en een laserprin- 
ter kun je je eige n tijdschrift maken. Nu is dat op zich niet helemaal 
nieuw, want Ap ple heeft met zijn Macintosh ook al een konfiguratie die 
DP aankan. M aardat kost u dan (inklusief harddisk en laserprinter) wel 
zo’n 25.000 gulden. Van Atari kost u hetzelfde (als de laserprinter ten- 
minste sn el op de markt komt) nog geen tienduizend gulden. 


LEIDT TOT ECHTSCHEIDING 


TOUR 

De handleiding van PP begint met een 
tour’ door het programma. De auteur 
toont ons in tien minuten de meest essen- 
tiële en spektakulaire opties van Publi- 
shing Partner. De zekerste manier om het 
programma voorlopig niet meer te verla- 
ten. Voorlopig kunnen nog ‘slechts’ vier 
lettertypen worden gebruikt, maar de 
makers van het programma beloven dat er 
snel nieuwe uit zullen komen, die dan in 
een public domain bibliotheek ter be- 
schikking zullen staan. Bravo! 

Teksten kunnen zowel in een tekstverwer- 
ker worden gemaakt en dan in PP worden 
‘geïmporteerd’ als rechtstreeks in PP wor- 
den geschreven. Het laatste heeft het voor- 
deel dat je meteen ziet hoe de tekst eruit 
komt te zien, maar bij gebruik van een wat 
kleinere letter (9 punten, de letter die u nu 
leest) is het op het scherm nog maar moei- 
lijk leesbaar. Wel ziet u precies waar de 
tekst komt, hoe deze wordt afge- 
broken, enz. 


WYSIWYG 

De bovenstaande tussenkop moet u op z'n 
Engels uitspreken. Let op: deze term wordt 
een gevleugelde onder de DP-gebruikers. 


Letterlijk is het de afkorting van What = 
You See Is What You Get. Of, vrij ver- & 


taald: zoals het op het scherm komt, wordt 
de afdruk ook werkelijk. En dat is ook zo. 
Tekst en illustraties zijn zowel op ‘full size’ 
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land forms creator all in one 
“=| program, you'll be able to quickly 
land easily create a variety of 


te zien als vergroot of verkleind. Hoe u 
maar wilt. 

Het werken met het programma is aan de 
hand van de handleiding kinderspel. Niet 
dat je snel alle kommando’s onder de knie 
hebt - het zijn er ook zo veel - maar er is 


Uiteindelijk resultaat van Publishing Partner in 
kombinatie met een EPSON FX-80. 

De letters zijn rafelig en het ‘uitvullen’ za 
is niet mooi. 


suk when itis | Backs\ant 

sore quess work. | Bold 
zjust fonts, character 
sets, and even character 
spacing anytime and anywhere 
on the page. You'll watch an 


Light 
Mirror 1oniM 


ordinary letter transform into a | Outline 
professional looking “piece” right 
<ibefore your eyes as you adow 
Strikethrough 


experiment with mixing graphics 


S and text. Tal 


Benefits 
=| The benefits of using Publishing 
zl Partner are unlimited. By having 


Underline 
Upside Down 
nbeide DoMu 
wide 
a word processor, page layout, 


7 144 points 


„special Attributes 


Double Underline 
ltalicize 


You can mix and match any 
attribute you desirel 


een voortreffelijke referentielijst op- 
genomen. Je hebt al vrij snel de eerste 
pagina van je eigen tijdschrift, of een 
prachtig visitekaartje ontworpen. En dat 
maakt het werken met PP zo leuk: je ziet 
direkt resultaat van je werk, zodat je met- 
een door wilt gaan. Bovendien kun je ge- 
bruik maken van illustraties die je eerder 
had gemaakt. Met Degas bijvoorbeeld. 
Vergroot of verkleind kun je ze in een 
handomdraai in je net ontworpen voor- 
pagina verwerken. 


EISEN 

PP stelt wel wat eisen aan je computer 
konfiguratie. Formeel gesproken is een 
eenvoudige 520 ST met een enkele 360K- 
drive voldoende. Maar als je daarmee 
werkt zul je al snel ontdekken dat het tel- 
kens wisselen van schijfjes om eigen ont- 
werpen op te slaan en programma- 
onderdelen te gebruiken wel wat hinder- 
lijk wordt. De (niet beveiligde, dus gemak- 
kelijk op harddisk te installeren) pro- 
grammaschijf staat namelijk barstensvol. 
Er kan echt geen letter meer bij. Een 720K- 
drive is dus om te beginnen wel gemak- 
kelijk, maar een harddisk is natuurlijk het 
beste. Daarmee werkt PP lekker snel en je 
hebt niet zo snel ruimtegebrek. Want denk 
erom: de files die je aanmaakt nemen veel 
ruimte in op de schijf, omdat ze grafisch 
worden opgeslagen en niet als ASCII-file. 
Bovendien is een intern geheugen van Ì 
megabyte wel aan te bevelen. Omdat het 
programma zelf nogal wat geheugen in be- 
slag neemt, blijft er weinig werkruimte 
over als de computer ‘maar’ een half me- 
gabyte ter beschikking heeft (wat zijn we 
toch snel verwend). 


PUBLIC DOMAIN 

Maar nu moet ik de makers van PP toch 
echt op de vingers tikken. Ik kan tenslotte 
niet enthousiast blijven. De lezer zou kun- 
nen denken dat ik door Soft Logic of 
SoftSt betaald word. Het programma had 
eigenlijk niet op de markt gebracht mogen 
worden zonder de nodige printerfonts. 
Standaard kan het programma slechts één 
van de vier beschikbare lettertypen (Hel- 
vetica) printen. De andere drie worden 


Di 


wee Ó 

ome is 

ssuupported printers 

„áë Epson and graphics 

zmpatibles, Star (Gemini), Apple 

LaserWriter and any Postscript 

compatible device. New print drivers 

are being released daily so call to 
make sure your printer is supported, 


Import Graphics 


Deed WE enlarge, or “cul” any 
Neochromel® piclure 


To place an order: 
Just call (314) 894-8608 or mail 
payment to: 


“documents. With Publishing | ror example: 
Partner's easy to understand ì SoftLogik Corp 
_|”drop-down” menus, learning Tall and Shadow Keten 
sjand using the program will be | staficize, Outline, and (314) 894-8608 

=| instantaneous. underline 


Detd 


Produced wilh Publishing Partner, and an Atari ST 


niet begrepen. Inmiddels is er echter een 
eerste public domain schijfje met prin- 
terdrivers en printerfonts in omloop. Het 
wordt echter (nog?) niet standaard bij het 
pakket geleverd: de koper moet er zelf 
naar op jacht. 

Het is echt een teleurstelling als je met een 
eenvoudige matrixprinter gaat afdrukken. 
Dat is natuurlijk logisch: het programma 
is bedoeld voor samenwerking met een 
laserprinter. Ik heb daarover niet de be- 
schikking, zodat ik niet weet hoe het resul- 
taat dan zal zijn. Een 24-naalds printer is 
waarschijnlijk wel het minste dat je nodig 
hebt voor een acceptabel resultaat. Geluk- 
kig beschikt PP standaard over de meest 
gangbare printerdrivers, die zowel ’draft’ 
als ‘final’ kwaliteit kunnen leveren. Met 
mijn Star SG-10 zag ik overigens nauwe- 
lijks kwaliteitsverschil. In de ’final’- 
kwaliteit duurde de print echter wel twee 
keer zo lang. Op pagina 26 kunt u zien hoe 
het resultaat uit een gewone matrixprinter 
rolt. Ik moet zeggen: de letterkwaliteit van 
Signum! ziet er beter uit. Maar dat pro- 
gramma biedt natuurlijk nauwelijks mo- 
gelijkheden voor opmaak. Het betekent 
wel dat er nog wat aan de fonts voor mat- 
rixprinters te verbeteren moet zijn. 
Overigens overweegt Atari de rechten van 
het programma te kopen en het dan even- 
tueel bij de laserprinter te leveren. 


Henri Kruithof 


me 


f 349,- voor Atari St, Commodore Amiga en Schneider PC 


Software mogelijkheden 


* Tot 16.000.000 records 
* Tot 999 indexen 

* Maximale file grootte 

* Aantal files 

* Aantal open files 

* Aantal velden per record 


- per file 
per file 


Zoals u uit het begin van het verhaal al 
heeft begrepen ben ik enthousiast over 
Publishing Partner. De prijs (f 499,-) 


maakt dit programma niet geschikt 
voor iedereen. Maar voor verenigingen 
en instellingen, die zelf een verenigings- 
blad willen maken, is een totale uitgave 
van zo’n achtduizend gulden (hardwa- 


re en software) vaak nog wel te betalen, 
En dan is het een uitstekend alternatief 
voor de jaarlijks terugkerende grote uit- 
gaven aan zetter en layouter. 


Publishing Partner is een extra reden 
om de aanschaf van een Atari te 
overwegen. 


Uiteindelijk resultaat van Publishing Partner in 
kombinatie met de nieuwe Atari Laserprinter. 
De kwaliteit van tekst en beeld 
sprongen vooruitgegaan het ’uitvullen’ 
blijft te wensen overlaten. 


see UIT üre «Ben just 


zj and using the program will be 
21 instantaneous. 


bepaald door systeem 
bepaald door systeem 
bepaald door systeem 
bepaald door systeem 


underline 


Superbase Personal werkt als eerste uit een 


is met 


„4 points 


‘special Attributes 


Produced with Publishing Partner, ATARI ST and a QMS PS 800 


5 j seite TN ad 
“| PosusZpt compa. 1e device. Nev 
print drivers are being released dail: 
so call to make sure your printer i: 
supported. 


Import Graphics 


„ss=úle page will look when itis | Backs\am 
finted - no more guess work. | Bold 
ou can adjust fonts, character | 
sizes, and even character | ltalicize 
“| spacing anytime and anywhere | Light 
sjon the page. You'll watch an | Mirror 1oniM 
ordinary letter transform into a | Outline 
ber hen looking “piece” right | GEMEENTE 
efore your eyes as you | Shadow 
| experiment with mixing graphics Î 
{ and text. Tal 
Benefits Ë An Ao Dorf 
‚J The benefits of using Publishing nbeige DOMU You can reduce, enlarge, or “cut” any 
=| Partner are unlimited. By having | Wide Degasii or Neochromelfí picture 
sla ns processor, page layout, 
jand forms creator all in one | You can mix and match any | To place an order: 
| program, you'll be able to quickly | attribute you desire! iiet pa (314) pel order frein 
:Jand easily create a variety of av mah 
documenis, With Eg For example: Bay E 
“4 Partner's easy to ùnderstan k 
1 "drop-down" menus, learning Tall and Shadow SoftLogik Corp 
ltalici Outli / 


4129 Old Baumgartner 
St. Louis, MO 63129 
(314) 894-8608 


nieuwe generatie databases met makkelijk 


te bedienen menu's, meerdere vensters, aanklikpunten en met het voordeel van een 


relationele database struktuur. 


Eenvoudig op te starten 
U typt eenvoudig de namen van de velden, 


voegt er de details aan toe zoals lengte, 


datum en stijl. U kan de velden verplaatsen over het gehele scherm. U kan zelfs, zonder 
verstoring van de reeds opgeslagen gegevens, later de volledige layout en formatering 


wijzigen. 
Beheer van uw gegevens 


Superbase visualiseert de gegevens in tabellen of blad voor blad. 
Praktisch geen beperking in het aantal velden, met daarenboven volledige kontrole over 


wat u uiteindelijk op het scherm wenst te zien. 


Selektie van velden en indexen, aanwending van VCR kontroles voor visualisatie van 
uw gegevens, fast forward, rewind, pause, stop, hetzelfde als met uw cassetterecorder. 
Een uniek filtersysteem laat selektie en verwerking toe met om het even welke soort records 


in uw bestanden. 
Werkvermogen 


Definieer rapporten en selekties in diverse bestanden, met verschillende sorteerniveaus. 
Voer gegevens in van andere bestanden, voer gegevens uit naar uw tekstverwerker of 
verenig verschillende bestanden in een nieuwe database. 

De B+ boomstruktuur en disk buffering laten enorme mogelijkheden toe. Superbase leest 
een naam en adres record in minder dan drie honderste van een seconde. 


De plaatjes database 

Superbase laat toe beelden, grafieken en 
tekeningen te linken aan uw records. U krijgt 
aldus een uniek systeem van beelden ar- 
chievering. U kan zelfs een automatische 
“slide show” genereren. 


Data 


* Tekst, datum, nummerieke & externe 
* Input kontrole 

* Volledig te definiëren velden 

* Kalender 1-9999 A.D., meerdere mog. 
* 13-cijferige nauwkeurigheid 

* Kodewoord beveiliging 


Softst BV 


Nw. Prinsengracht 75 
1018 VR Amsterdam 


Erecision 090-2363093 


Software 


Rapporten 


* Tot 255 tekens per regel 

“ Titel, datum, pagina nummer 

* Telt records, subtotalen en totalen 

* Meerdere files kunnen naar scherm, pr., etc. 
* Multi kolom, variabele labelformaten 

* Sorteert in elk formaat 
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NIEUW VAN P.D.S. 


nu verkrijgbaar bij uw Ätarí-dealer 


GRAFISCH TABLET 

ideaal voor tekenaar en architekt 
prijs inclusief software f_ 1198, — 
VIDEO MIXER (GENLOCK INTERFACE) 

pakket waardoor uw Atari ST 1040 computerbeelden 
kan mengen met normale TV-beelden 


STEVE 
razendsnelle database met grafische mogelijkheden 
volledig in 68000 geschreven f 438, — 


STAD 
professioneel tekenpakket met extra 
3-D gedeelte, telecommunicatieenscanner f 239, — 


IN ONTWIKKELING BĲ P.D.S. 
(raadpleeg uw dealer - wellicht zijn enkele 
pakketten nu reeds leverbaar) 


SIGNUM! (Nederlandse versie) 


PRO SPRITE DESIGNER 
sprite editor met ingebouwde mogelijkheid om 
animaties te testen 


PRO SOUND DESIGNER 
sound sampler kompleet met hardware 


VERDERIS VERKRIJGBAAR: 


PROGRAMMEERT ALEN 
Megamax C-compiler 
Megamax B-Tree Toolbox 
Modula-2/ST 2.0 
Systeem Development Kit 
K-Seka 

K-Resource ST 

GST-C 

GST Fractal Generator 
GST Macro Assembler 
Metacomco Assembler 
BCPL Compiler 

Lattice C 

Cambridge Lisp 
Metacomco Pascal 
Metacomco Make 

Pro Fortran 77 

Pro Pascal 


esn ns na mna mn am on ma ms’ 


ADMINISTRATIEVE SOFTWARE 

ST Professional Module 1 

ST Professional Module 1 + 2 

ST Professional Module 1 +3 

ST Professional Update M2 f 
ST Professional Update M3 f_ 1074, 


« CAD/CAM 
Easy-Draw2 
The Graphic Artist 


e DATABASES 
Habaview 
Laser Base 
Trimbase 
Habadex 


e SPREADSHEETS 
K-Spread 1.2b 
K-Graph 
Vip Professional (tekst) 
Vip Professional (GEM) 


e TEKSTVERWERKING 
Signum! 
Habawriter (Nederlands) 
Habamerge 


, BEELD & ANIMATIE 
Artdirector 
Filmdirector 
Paintworks 
Maps & Legends 
Degas Elite 
Art Gallery 
Art Gallery Il 
Art Gallery III 
Print Master 


e MIDI MUZIEK 
MidiPlay 
Musidisk - Klassiek | 
Musidisk - Klassiek Il 
Musidisk - Beatles 


e UTILTIES 
Demo Constructor 
Desk Assist |I 
LQ-Font 
Multi-HardCopy 
ST Key 
ST Toolkit 
K-Comm 
K-Ram 
K-Switch 
VT 100 Terminal Emulator 
Aladin Macintosh Emulator 
Mac Emulator 
IBM Emulator 
Hardware Clock 


(prijswijzigingen voorbehouden) 


tian PDS 


KWALITEITS SOFTWAREEN GOEDE SERVICE BEL VOOR INFORMATIE 070 - 999 039 


A Dh Dh TA MR Dh Ph 


DEN Th Dh DR Th Ih Dh Dh TR Mh A 


Universele Spellingschecker 


zoekt de procedure elk getal. Is het getal 


Er zijn tekstverwerkers te over voor de ST. Een tekstverwerker met een 
goed Nederlands woordenboek is er echter nog niet. Als die er komt is het 
nog maar de vraag of de tekstverwerker ook op andere punten dermate 
krachtig is dat u uw huidige programma ervoor terzijde legt. 

Daarom vroeg START aan Rob Koopman of hij een spellingschecker wilde 
schrijven die met elke tekstverwerker te gebruiken is. 

Dat leidde tot SPECIAL DISK 4: SPELLBOUND. 

In het volgende artikel legt de auteur uit hoe het programma werkt. Mocht u 
zelf een spellingschecker willen schrijven, dan geeft dit artikel u alle be- 
nodigde handvaten. De gepresenteerde aanpak is echter ook geschikt om 


andere problemen op te lossen. 


$ 
GRAMMATIKA / 
Een spellingschecker is een râc 
hulpmiddel voor iedereen die regel 
via een computer artikelen of a i 
duceert. Het hulpmiddel kontrolë 
ter alleen de spelling van een wo 
wort” levert beslist een foutmelé 
Grammatikale blunders komt z 
gramma echter niet op het spoor. “Ik 
wordt” is voor een spellingschecker kor- 
rekt Nederlands. 
Misschien heeft u zich wel eens afge- 
vraagd hoe een programma dat de spelling 
van een tekst kontroleert in elkaar zit. Ui- 
teraard heeft zo’n programma een uitge- 
breide woordenlijst nodig. Die woorden- 
lijst moet zo kompakt mogelijk worden 
opgeslagen. Daarna zal een procedure in 
korte tijd uitsluitsel moeten geven of een 
woord al dan niet in de woordenlijst 
voorkomt. 
Het maken van een lijst met woorden die 
wel in een tekst maar niet in het woorden- 
boek voorkomen is een eenvoudige taak. 
De computer moet alle woorden van de te 
onderzoeken tekst eerst alfabetisch sorte- 
ren. Daarna moet hij de gesorteerde lijst 
vergelijken met het woordenboek. Alle 
woorden die niet in het woordenboek 
voorkomen, worden afgedrukt. 
Op zich is dit een prima methode. Het sor- 
teren van de woorden in een tekst is van de 
orde N log N (N is het aantal woorden in 
de tekst). Het vergelijken van de tekst met 
het woordenboek is van de orde N+M. (M 
is het aantal woorden in het woorden- 
boek). Zolang de te onderzoeken tekst in 
RAM gesorteerd kan worden, zal de pro- 
cedure vrij weinig tijd kosten. Het grote 
voordeel is dat de woorden in het woor- 
denboek ieder maar één keer bekeken 
worden. Het programma kan het woor- 
denboek dus sequentieel van schijf lezen. 
Het grote nadeel van deze methode is dat 
het opzoeken van slechts één woord een 
paar sekonden duurt. Het hele woorden- 
boek moet immers worden doorgekeken 
tot het gezochte woord gevonden is. 


BINAIR ZOEKEN 


Ik heb onderzocht of het mogelijk is een 
spellingschecker te maken die een ingetikt 
woord direkt kontroleert. Het sequentieel 
doorzoeken van het woordenboek duurt 
dan echter veel te lang. Een oplossing is 
zoeken door ”halveren”. Een woord uit de 
tekst wordt eerst vergeleken met het woord 
dat in het midden van het woordenboek 


staat. Als het woord achter het ”middelste” 
woord thuis hoort, wordt het midden van 
de tweede helft van het woordenboek be- 
keken. In het andere geval het midden van 
de eerste helft. Dit proces herhaalt zich tot 
het interval nog maar één woord groot is. 
Op die manier kan in maximaal zestien 
vergelijkingen een woord in een woorden- 
boek van 65.000 woorden gevonden 
worden. 

Het lezen van een woord van een hard 
disk kost ongeveer 1/20 sekonde. Het op- 
zoeken van een woord kost dus in het on- 
gunstigste geval zestien keer zolang: on- 
geveer driekwart sekonde. Dit is onaan- 
vaardbaar lang. Het woordenboek moet 
dus in het geheugen worden opgeslagen. 
Op een Atari ST met l megabyte geheugen 
is dit heel goed mogelijk. Een woorden- 
boek met 60.000 woorden zal ongeveer een 
half megabyte in beslag nemen. Het op- 
zoeken van een woord gaat dan vrij 
snel. 

Natuurlijk is een woordenboek van 
500.000 bytes onhandelbaar groot. Met 
een 520 ST komen we bovendien geheu- 
gen tekort. Er zijn gelukkig wat truuks om 
het woordenboek kleiner te maken. Zo 
kunnen bijvoorbeeld drie letters in twee 
bytes worden opgeslagen. Een letter kost 
vijf bits, drie maal vijf bits maakt vijftien 
bits en dat is kleiner dan twee bytes (zes- 
tien bits). Verder kunnen bepaalde veel 
voorkomende standaarduitgangen en pre- 
fixen met een kode aangegeven worden. Al 
met al is het waarschijnlijk mogelijk het 
woordenboek tot ongeveer 250.000 bytes 
terug te brengen. Dit is echter nog steeds te 
groot. Bovendien maakt iedere datareduk- 
tietechniek het zoeken ingewikkelder en 
dus dreigt de zoektijd langer te worden. 


DUBBELGANGERS 


Het kijken of de woorden van een tekst in 
een woordenboek voorkomen, lijkt heel 
erg op het volgende probleem: stel we heb- 
ben een lijst van vijfhonderd getallen on- 
der de duizend. Hoe kunnen we zo ef- 
ficiënt mogelijk kijken of er dubbelen in 
de lijst voorkomen? 


Op het eerste gezicht lijkt de beste oplos- 
sing de lijst eerst te sorteren. Daarna kan 
hij eenvoudig op dubbelgangers worden 
gekontroleerd. Een veel snellere oplossing 
is echter gebruik te maken van een array 
van 1000 bits (= 125 bytes). Eerst wordt de 
hele array op nul gezet. Daarna onder- 


bijvoorbeeld 756, dan kijkt het of bit 756 
op één staat. Is dat het geval, dan is 756 
dubbel. Staat bit 756 nog op nul dan wordt 
het bit nu op één gezet. 

In pseudocode: 


procedure toondubbel (lijst); 
verzameling = set of 0.999; 
begin 
verzameling := []; 
for alle getallen x in de lijst do 
if x in verzameling then 
dubbel 
else 
incl (x,verzameling) 
end; 
end; 
end; 


Op dezelfde manier kan geprobeerd wor- 
den een woordenlijst op te slaan. We ver- 
zinnen daarvoor een funktie die een 
woord omvormt tot een uniek getal. In 
plaats van de woorden kunnen we dan de 
getallen in een woordenlijst zetten. Er is 
maar een beperkt aantal Nederlandse 
woorden. Bij een perfekte funktie zouden 
we dus aan de getallen 1 tot en met 
1.000.000 meer dan genoeg hebben. 
Jammer genoeg bestaat deze funktie niet. 
Als de computer echter af en toe een foutje 
mag maken, kunnen we deze funktie 
wel benaderen. 


Een funktie die aan een woord een getal 
toekent, wordt in de literatuur ook wel 
hashfunktie genoemd (door-elkaar-hak- 
funktie). 

Als we de Nederlandse woorden afbeel- 
den op de getallen 1 t/m 1 miljard is de 
kans dat twee woorden hetzelfde getal toe- 
bedeeld krijgen vrij klein. Op die manier is 
het mogelijk elk Nederlands woord in een 
kode van 32 bits te veranderen. Een woor- 
denboek met 60.000 woorden kan dan in 
240 kbytes opgeslagen worden. Helaas is 
het bij deze methode niet meer mogelijk 
om van de hashwaarde terug te gaan naar 
het bijbehorende woord. 

Om te bepalen of een woord in de woor- 
denlijst voorkomt, wordt eerst de hash- 
funktie op het woord losgelaten. Daarna 
kijkt het programma of de aldus verkregen 
waarde in het “getallenboek” voorkomt. 
Het is in principe mogelijk dat een woord 
fout gespeld is, terwijl zijn hashwaarde 
toch in het woordenboek zit. Een korrekt 
gespeld woord heeft dan toevallig dezelfde 
hashwaarde. Bij een woordenlijst van 
60.000 woorden is de kans hierop ongeveer 
lop 16.000 (1 giga / 60k). 

Het voordeel van de hashmethode is dat 
de woordenlijst klein is en dat er bijzonder 
snel gezocht kan worden. Het nadeel is dat 
er af en toe een foutje doorslipt en dat niet 
meer te zien is welke woorden in de lijst 
staan. 

Zelf vind ik het aardige dat de stelling 
“beter zonder fouten dan snel” hier niet op 
blijkt te gaan. 

Overigens gebruikt de politie een dergelij- 
ke methode al langer. In plaats van een 
kopie van een persoon wordt naar vin- 
gerafdrukken gekeken. Theoretisch kan 
dat natuurlijk ook fout gaan. 
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VERDERE VERFIJNINGEN standen tussen de waarden opsla 


Als eenmaal de stap is gemaakt om in getallen liggen dan gemiddeld 
plaats van woorden hashwaarden op te 100 posities van elkaar af. 


Í Data structures using Modula-2 


Í Addison-Wesley / ISBN 0-201-10331-1 
1 R.F. Sincovec / R.S. Wiener. 
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slaan, zijn er weer nieuwe mogelijkheden 
om het getallen-woordenboek efficiënter 
op te slaan. 

Eerlijk gezegd is vier bytes per woord nog 
veel te veel. Een echt goed kompakt woor- 
denboek mag niet veel meer dan twee 
bytes per woord beslaan. Om dat te be- 
reiken staat een aantal wegen open. 


1) De programmeur kan meer dan één 
hashfunktie gebruiken. 

Als een woordenboek 60.000 woorden 
moet bevatten en als twee bytes per woord 
beschikbaar zijn, zou het woordenboek 
kunnen worden opgeslagen in een rij van 
1.000.000 bits. Deze rij beslaat 125.000 
bytes in het geheugen. Als nu gebruik 
wordt gemaakt van een hashfunktie die 
waarden tussen 1 en 1.000.000 genereert, 
kan ieder woord gerepresenteerd worden 
door een bit in de rij. 

Dit is echter niet goed genoeg voor een 
spellingswoordenboek van enige kwali- 
teit. De kans dat een fout woord ten on- 
rechte goed wordt gekeurd is ongeveer l op 
17. We kunnen echter ook op ieder woord 
twee verschillende hashfunkties loslaten. 
Dit levert waarschijnlijk twee verschillen- 
de getallen op. Deze twee getallen slaan we 
op als bits in de rij. Alleen woorden waar- 
van beide hashwaarden in de rij voor- 
komen, worden goedgekeurd. De rij is bij 
gebruik van twee hashwaarden voor 12% 
gevuld. De kans dat een fout woord toch 
twee hashwaarden heeft die in het woor- 
denboek (de rij) voorkomen is dus 1.44%. 
Natuurlijk kunnen we ook nog meer 
hashfunkties gebruiken. De bijgevoegde 
tabel geeft een overzicht van de korre- 
sponderende foutkansen. 


aantal 1.000.000 1.200.000 
hash- bits bits 
funkties fout in % fout in % 

1 6.0 5,0 

2 14 10 

3 0.6 0.3 

4 0.3 02 

5 0.2 0.1 

6 0.2 0.07 

d 0.2 0.06 

8 0.3 0.07 

9 04 0.08 

0.1 


10 06 


(alle getallen op basis van 60.000 
woorden) 


Bij zes hashwaarden wordt dus ongeveer 
één op de vijfhonderd foute woorden ten 
onrechte goed gerekend. Als we 20% meer 
bits gebruiken, wordt bij zeven hash- 
funkties ongeveer 1 op de 1.400 foute woor- 
den ten onrechte goed gerekend. Hoe gro- 
ter het aantal getallen waar we de Neder- 
landse woorden op afbeelden, hoe kleiner 
de kans op fouten. 

Als gemiddeld in een dokument twintig 
spelfouten voorkomen, blijft in het eerste 
geval maar in l op de 25 dokumenten een 
fout zitten. Dit lijkt mij aanvaardbaar. 
Het nadeel van deze methode is wel dat 
het verantwoord verwijderen van woorden 
vrijwel onmogelijk is geworden. 


2) De programmeur kan in plaats van de 
getallen de afstanden tussen de getallen 
opslaan. 

Wie accepteert dat bijvoorbeeld 1 op de 
100 spelfouten niet gevonden wordt, kan 
in plaats van de hashwaarden zelf de af- 
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Als de afstanden tussen de bytes 


hulp van een variabele lengte kodering 7 


worden weergegeven, zal het woorden- 
boek ongeveer twaalf bits per woord be- 
slaan (Dit is natte vinger werk. Ik heb het 
niet uitgerekend, maar een bitje meer of 
minder maakt niet veel uit.) Het totale 
woordenboek is dan maar 90.000 bytes 
groot. Als de afstand tussen twee getallen 
kleiner is dan 128, wordt de afstand met 
een byte weergegeven. Is de afstand groter, 
dan wordt bit zeven van het byte op één ge- 
zet en een tweede byte toegevoegd, enz. 
Als 1 op 100 niet acceptabel is, kan de ge- 
middelde afstand tussen de hashwaarden 
natuurlijk groter gemaakt worden. 


3) De programmeur kan de hashwaarden 
gehashed opslaan. 

Een derde methode is het gehashed op- 
slaan van de uit de woorden berekende 
hashwaarden. Op het eerste gezicht levert 
dat niets op, maar er is een truuk beschik- 
baar. Normaal houdt hashen in dat het ge- 
heugen wordt ingedeeld in een aantal 
’buckets’ (bakjes?). Door middel van een 
hashfunktie wordt berekend in welk bakje 
een woord wordt opgeslagen. Het systeem 
lijkt een beetje op het sorteren van brieven 
via de postkode. 

‘Pseudo’ definitie hashtable: 


type bucket = array [O.bucketsize] of 
woorden; 

hashtable = array [O.maxbucket] of 
bucket; 


Normaal slaan we bij zo’n aanpak de 
woorden in de buckets op. Het is echter 
ook mogelijk een tweede hashfunktie op 
de woorden los te laten. In plaats van het 
woord wordt dan de hashwaarde opgesla- 
gen. Aangezien ook al de bucket waarin 
het woord terecht komt via hashing be- 
paald wordt, kan met twee bytes per woord 
worden volstaan. Als bijvoorbeeld 8096 
buckets ter beschikking staan, zijn er on- 
geveer 500 miljoen mogelijke kom- 
binaties. De kans dat bij een woordenboek 
van 60.000 woorden een fout woord toch in 
het woordenboek gevonden wordt, is on- 
geveer 1 op 8.000 (= het aantal buckets). 


De totale grootte van het woordenboek is 
ongeveer 140.000 bytes (aantal woorden 
maal twee plus het aantal buckets maal 
twee). Deze laatste methode is toegepast in 
het programma SPELLBOUND. 


LisTING 

Ik geloof zelf niet zo erg in het letterlijk 
overnemen van programma’s uit tijd- 
schriften. Het is veel leerzamer de aanpak 
van anderen te bestuderen om daarna de 
goede dingen over te nemen in een eigen 
programma. Liefst met een heel andere 
toepassing. De techniek die hier gebruikt 
wordt om kompakt op te slaan, hoeft im- 
mers niet beperkt te blijven tot woorden. 
Op dezelfde manier kan bijvoorbeeld een 
schaakprogramma stellingen uit openin- 
gen herkennen. 

De bijgevoegde listing bevat het hart van 
de spellingschecker: de hashfunktie en de 
opslagmethode. Ik hoop dat de program- 
matuur duidelijk genoeg is om ook men- 
sen die niet in Modula-2 thuis zijn op het 
goede spoor te zetten. 


Literatuur 
e Programming pearls / Jon Bentley. 
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HET GEMAK DIENT 
DE MENS: 


EKACCLOAD 


Deskaccessoires zijn programma’s 
die bij het booten van de computer 
worden ingeladen. Er zijn hele leuke 
en handige accessoires bij en men is 
snel in de verleiding om er (te) veel 
op de boot-schijf te zetten. Vooral 
als er grotere utilities bij zitten, 


… zoals sideclick, duurt het booten erg 


lang. Bovendien nemen de accessoi- 
res een flink stuk geheugen in be- 
slag. De gebruiker moet dus een 
evenwicht tussen het aantal acces- 
soires enerzijds en geheugenruimte 
en inlaadtijd anderzijds zien te 
vinden. 

Een ander probleem is dat er 
maximaal zes accessoires ingeladen 
mogen worden. Dit betekent dat 
veel gebruikers meerdere bootschij- 
ven hanteren. 

Al dat getob is nu verleden tijd: Wim 
de Winter vond een manier om alle 
accessoires op een bootschijf te la- 
ten staan en er tijdens een reset 
maximaal zes uit te kiezen. 
ACCLOAD is geschikt voor ge- 
bruik in alle resoluties. 


ACCESSOIRE BIBLIOTHEEK 
Het programma ACCLOAD geeft een 
lijst van alle ACC’s en geïnaktiveerde 
ACC'’s (kenbaar aan de extensie 
ACx). De gebruiker heeft de mo- 
gelijkheid de extensie zo te verande- 
ren, dat de accessoire wel of juist niet 
wordt ingeladen. Op die manier kan 
een bibliotheek van maximaal 25 
ACC'’s op de bootschijf staan. 


MOBZFIND 
Enter a filename to 
search for, inclu- 
ding '#' or '?', 
ii |} Select the drivels) 
to search, then 
click 60, 


Search for: ACCLOAD „PRG 


Het in- en uitschakelen van de acces- 
soires gebeurt met de toetsen die ge- 
woonlijk de cursor besturen. De 
plaats waar je bent is herkenbaar 
doordat deze in diapositief is weer- 
gegeven. Met ”op” en ’neer” wandel je 
door de lijst. Met “rechts” schakel je 
een accessoire uit, met “links” aktiveer 
je hem. Dit kommando-overzicht 
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komt ook op het scherm wanneer de 
toets “Help” wordt ingedrukt. 
“Undo” geeft in geval van problemen 
de beginsituatie weer terug. 

Als de gewenste selektie bereikt is, 
moet er op “return” gedrukt worden. 
De gekozen accessoires worden in- 
geladen en het booten verloopt verder 
als gebruikelijk. 

Als u tijdens het laden van ACC- 
LOAD op “return” drukt (het pro- 
gramma geeft zelf het gewenste mo- 
ment aan), wordt de routine afge- 
broken. U krijgt dan de accessoires 
die u de vorige keer aktief had 
gemaakt. 


MOBZKEY Keyboard definition program U1,3 


Unshifted 
| Shifted 


COMPILEREN 

Het programma ACCLOAD werkt al- 
leen als het in een folder met de naam 
AUTO op de bootschijf staat. Dit stelt 
enige eisen aan het programma. Op 
het moment dat het TOS de AUTO- 
folder raadpleegt, is er namelijk nog 
geen GEM aanwezig. GfA BASIC 
maakt gebruik van GEM. ACC- 
LOAD kunnen we dus niet als 
BASIC-bestand in de AUTO-folder 
plaatsen. Maar er is een oplossing: de 
GfA compiler. Deze produceert een 
op zichzelf staand programma dat al- 
leen van GEM gebruik maakt als er 
instrukties in het programma voor- 
komen die GEM aanroepen. In ACC- 
LOAD heb ik dat niet gedaan en dus 
loopt het gecompileerde programma 
onder TOS. 

ACCLOAD is gecompileerd met ver- 
sie 1.6 van de GfA-compiler. Mocht u 
die niet bezitten: op START-schijf zes 
staat het programma zowel als listing 
als gebruiksklaar. Bovendien is de file 
ACCLOAD.DAT toegevoegd, die 
voor een wat mooiere layout zorgt. De 
mogelijkheden van AES (een onder- 
deel van GEM), zijn immers nog niet 
aanwezig. Het programma werkt ech- 


& GOLIATH 
& LATTICE 
& LOGO 

& MEGAHAX 
& HETACOMC 
E START 

& TEKENPRG 


E TEKSTURH 

& TELECONM 

& TOOLKIT 
DALES 3546 
ANACLOCK ACC 7443 
CONTROL ACC 15238 


16:39 PM | _5/10/87 
ps 


en 


ter ook zonder deze file. 
ACCLOAD.DAT moet overigens 
eveneens in de AUTO-folder staan. 


PROGRAMMABESCHRIJVING 


Voor het inlezen van de directory 
maakt het programma gebruik van de 
funktie BIOS(4). De hoofddirectory 
bevindt zich altijd op zeven sektoren, 
die op schijf te vinden zijn vanaf sek- 
tor nummer elf. Deze twee parameters 
worden aan het BIOS doorgegeven, 
dat de inhoud van de directory in een 
string plaatst. Elke directory entry 
neemt hierin exakt 32 bytes in. Begint 
een entry met chr$(0), dan staan er 
verder geen bestanden meer in de 
directory. 
De bestandsnamen worden vervol- 
zee uit deze 32-byte substrings ge- 
aald en in een aantal arrays gezet. 
Via wat scherm- en toetsenbord kom- 
munikatie kan de gebruiker bepalen 
welke filenamen moeten veranderen. 
De wijzigingen worden tenslotte met 
de GfA-funktie Name” op de schijf 
aangebracht. Daarna vervolgt het 
boot-proces op de normale manier. 


PSON FX-85 PRINTER CORTROLER 
COKPUDRESS bv tel:03481-2124 KAKERIK 
erniet deet Pag vin ereen 


En 
[mmm 
EE LES 6e CNES ENOR 2 1) 
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VOLGORDE 

Als het programma GDOS ook in de 
autofolder staat, moet u er op letten, 
dat ACCLOAD het eerst in werking 
wordt gesteld. Gebeurt dat niet, dan 
moet u het volgende doen: via de 
desktop (file-show info) geeft u 
GDOS.PRG de naam GDOS.PR. 
Eenmaal “backspace” en een ’return” 
zijn daarvoor genoeg. Vervolgens 
kopieert u GDOS.PR in de auto- 
folder. Hierdoor ontstaat natuurlijk 
een “naamkonflikt”. Daarom maakt u 
de naam van de kopie GDOS.PRG. 
Na afloop gooit u GDOS.PR weg. 
Hierdoor is ACCLOAD op de eerste 
plaats in de AUTO-folder komen te 
staan. 


t OERRERKNRRKRRENEKKNNEK EERE EE KEEK 
“_& ACC-LOAD — Accessory Loader & 


“_* Auteur Wim de Winter # 
WR krththhhhnhhhhhhhhhhhhhhhhhhkkd 
Neg$=Chr$(27) +"p" 
Pas$=Chr$(27) +"q" 
Up$=Chr$(27) +" A" 
Dwn$=Chr$(27)+"B" 
Resolutie%=Xbias(4) 


EProhibit 

&Init 

&Lees 
@Selecteer op aktiviteit 
@lnteraktie 


Procedure Init 
Chdir "a: \Auto" 
Dim Aktief !(25),Is veranderd! (25) 
Dim Acc${(25),Acsavel$(25) ,Acsave0f( => 
25) „Accundo$ (25) 
Nohelp$=String$(32000,Chr$(255) ) 
Sput Nohelp$ 
If Resoluties=2 
@Vulbox(252,10,610,250,0) 
@Vulbox(253,11,609,249,1) 
If Exist ("AccLoad.Dat") 
Open "R"‚#1,"accload.dat",2910 
Field #1,2910 As B$ 
Get #1 
Put 262,20,B% 
Get #1 
Put 262,250,B$ 
Endif 
Print At(46,1);"Typ Help voor hulp” 
Else 
Print At(11,25);"Typ Help voor hu => 
Ip"; 
Endif 
Sget Nohelp$ 
Return 


Procedure Selecteer op aktiviteit 
For I%=l To Aantal _accs% 

If Right$(Acc$(14),2)="CC" Then 
Aktief !(I%)=True 
Acc$(I4)=Acc$(IA)+" | "+5pace$(12) 
Inc Aantal aktief % 

Else 
Aktief ! (I4)=False 
Acc$(I%)=Space$(12)+" | "+Acc$(14) 

Endif 

Next 14% 
Return 
Procedure Interaktie 
@Lijst 
Lijnk=1 
Do 

Ik=Inp (2) 

Print Pos$;Acc${(Lijn%) 

Print Up$; 

If IX=13 t Return 
&Save changes 

Endif 

If I4=200 ips: 
Print Up$; 

Endif 

If I4=203 hit 
GAktiveer (Lijns) 

Endif 

If I4=205 kn 
@lnaktiveer (Lijn%) 

Endif 

If I4=208 And Lijn%<Aantal _accs% => 


Print Dwn$; 
Endif 
If I4=225 t Undo 

D.name$=D.savet 

Arrayfill Is veranderd! (),False 

Clr Aantal aktief? 

Far J4=1 To Aantal _accs% 
Acc (JA) =Accundos (JZ) 
Acsavel$(J4)=Acsave0$ (JZ) 

Next JX 

Selecteer op aktiviteit 

@Lijst 

Endif 
If IX=226 
EHelp(Lijn%) 
Endif 
Lijn%=Crslin 
Print Neg$;Acc$(Lijn%) 
Print Up$; 
Loop 
Return 


Procedure Lijst 
Lacal I% 
Sput Nohelpé 
Print At(1,1); 


For IX=i To Aantal accs% 
Print Acc${ 14) 

Next IX 

Print At(l,i)sNeg$;sAcc$(1) 

Print At(1,1); 

N=1 

Return 


Procedure Aktiveer (N4) 

If Not Aktief! (NZ) 
Acsavels{(NZ)=Acsavels (NZ) +"C" 
Acc$(NA)=Spacet (12) 

Rset Acc$(NX)=Acsavel$ (NZ) 
Acc${NA)=Acc$(NA)+" | "+Space$(12) 
Aktief ! (N/)=True 
&Onthoud verandering (NA) 
Inc Aantal aktief % 
Endif 
Return 


Procedure Inaktiveer (N4) 
If Aktief ! (NZ) 
Acsavels(NA)=Left$(Acsavels(N/),I => 
nstr (Acsavel$(NZ),".")+2) 
Rset Acc$(NZ)=Acsavels(N%) 
Mid$(Acc${NZ),14,1)=" |" 
Aktief !(N/)=False 
EOnthoud verandering (NZ) 
Dec Aantal aktief % 
Endif 
Return 


Procedure Onthoud verandering (N%) 
If Not Is veranderd! (NX) Then 
Is veranderd! (NA) =True 
Else 
Is veranderd! (Nú) =false 
Endif 
Return 


Procedure Save changes 
If Aantal aktief 4>6 
Print At(5,24);"----> Meer dan ze => 
s accessoires aktief !! (----! 
Pause 100 
@Lijst 
Else 
For I%=1l To Aantal _accs% 
If Is veranderd! (IX) Then 
Name "A:\"tAcsave0$(I%) As "A => 
:\"tAcsavel$ (1%) 
Endif 
Next 1% 
Edit 
Endif 
Return 


Procedure Vulbox{(Sx%,Sy4,Exh,Eyx,‚Color%) 
Dx4=Abs (Sx4-Ex A) 
Dy%=Abs(Sy%-Eyx) 
Li%=Int (((Dx4*DyZ)/B)+2eDy7) 
Vul$=String$(LiZ+6,Chr$(255%*Color%)) 
Dpoke Varptr(Vul$)+0,Dx% 
Dpoke Varptr (Vul$)+2,Dy% 
Dpoke Varptr (Vul$)+4,1 
Put Sx%,5y%,Vul$ 

Return 


Procedure Prohibit 
Cls 
If Resolutiek=2 
Wi=2 
Else 
Wi=l 
Endif 
Print String$(WAr40,"«") 
L$="#"+Spaces (WL#40-2)+"«" 
Print At(1,2);String$(7,L$) 
Print At(1,8);String$(WZ#40,"«") 
If Resolutie/=2 
Print _AtLS0,2) ; "ACT = LOAD E => 
R";Space$(25);"V1.35" 
Print At(15,4);"Je hebt twee seco => 
nden om Accloader te stoppen : * 
Print At(15,5)sNeg$;"!";Space${(24 => 
)s"i*sSpace$(24);"i" 
Print At(15,6);Pos$;"<return> = 5 => 
top ‘spatie> = start meteen” 
Print At(13,5); 1"4*3 
Else 
Print At(11,2)5"A- CC - LOADE => 
R";Space$(5);"V1.5" 
Print At(5,4);"2 sec. om AcclLoade => 
r te stoppen : * 
Print At(7,5);Neg$;":";Space$(12) => 
s"i*sSpaces(ii);“:” 
Print At(3,6);Pos$; "Cret>=stop =} 
<spatie}=start meteen" 
Print At(7,5); 171"; 
Endif 
For I%=0 To WX#25 
Prtat ze 
Key$=Inkey$ 


If Key$>"" 
If Key$=" " 
IZ=51 
Else 
Edit 
Endif 
Endif 
If I%=0 Or I%=25 Or 14=50 
Print Chr$(8);"i"; 
Endif 
Pause 4/WZ 
Next 1% 
Print 
Return 


Procedure Lees 
Buffer$=Space$(7#512) 
Vaid Bios(4,2,L:Varptr (Buffer$),7,1 => 
1,0) 
I%=0 
Repeat 
F$=Mid$(Buffer$,I4#32+1,12) 
Ext$=Mid$(F$,9,2) 
Atrk=Asc(Mid$(F$,12,1)) 
Del$=Left$(F$,1) 
If Ext$="AC" And (Atr4=0 Or Atrú= = 
&H20) And Del$<>Chr$(229) 
Accse"" 
For J4=l To 11 
If Mid$(F$‚J4,1) <>" * Then 
Acc$=Acc$tMid$(F$,J4,1) 
Endif 
If J4=8 
Acc$=Acc$t"," 
Endif 
Next J4 
Inc Aantal accs% 
Acc$ (Aantal accs{)=Spacet(12) 
Rset Acc${(Aantal accs%)=Acc$ 
Accundo$ (Aantal accs%)=Acc$(Aan => 
tal _accs%) 
Acsave0$ (Aantal accs{)=Acc$ 
Acsavel$(Aantal accs%)=Acc$ 
Endif 
Inc I4 
Until I%=>112 Or Left$(F$,‚1)=Chr$(0) 
If Aantal accs%=0 
Sput Nohelp$ 
Print At(19,21);Chr$(7);”" Ge => 
en accessories op deze schijf , 
Void Inp(2) 
Edit 
Else 
Sget Nohelp$ 
Endif 
Return 


Procedure Help (NX) 
Sget Nohelpé$ 
If Resolutie#=2 
Sp4=33 
Else 
Sp4=1 
Print At(1,1);Neg$;String$(40,"=") 
Print At(1,16);String$(40,"=") 
Print At(1,2);" AAA => 
Ë n 
Print At(1,3);" A A SIEEE VCE EED 
L 000 AAA DDDD * 
Print At(1,4);" AAAAA C C => 
LS MOR ve Ad D" 
Print At(1,5);" A A C 
L 0 0 AAAAAD D* 
Print At(1,6);" A 8 ECG CODE 
LLLL 000 A A DDDD * 
Print Pos$ 
Endif 
Print At(SpX,8);" Selecteer met Up => 
Arrow en DwnArrow; Re 
Print At(Sp4,9);" Inaktiveer met pi => 
SUS >; „ 
Print At(SpX,10);" Aktiveer met p => 
ijltje {--; r 
Print At(Sp4,11);" Reset met Undo, => 
Klaar met Return. 5 
Print At(Sp4,12);" Help voor hulp . => 


Print At(SpZ,13);" => 
Print At(Sp4,14);" NB: Dit programm => 
a werkt niet goed als à 
Print At(SpX,15);" GDOS al is ingel => 
aden (GEMVDI resident)"; 
If Resolutiek=2 
Print: bl 
Else 
Print 
Endif 
Void Inp(2) 
Sput Nohelpt 
Print At(1,N4): 
Return 
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500K ONGEFORMAT 


IK is, zoals in de computerwereld gebruikelijk, 1024 bytes. In dit 
geval blijkt dat niet te kloppen: er gaan echt maar 500.000 en geen 
512.000 bytes op een kant van een schijf. Hierbij wordt uitgegaan 
van 80 sporen. Per spoor dus 500.000/80, dat is 6.250 bytes. Helaas 
kun je een floppy niet zo maar vol schrijven. Er moet eerst wat 
struktuur worden aangebracht. Die struktuur wordt gevormd 
door de sektoren die het formatteerprogramma op bepaalde 
plaatsen van de floppy schrijft. Van die sektoren zien we (als we 
er op de goede manier naar kijken) 512 data bytes. Maar er ís 
meer informatie. Een deel van die informatie is niet-informatie, 
namelijk de ‘gap’. De gap is een niet beschreven ruimte tussen 
twee sektoren. Waar is dat nu voor nodig? 

In deze wereld is niets geheel volmaakt: dat geldt ook voor de 
floppy. Neem eens aan dat we een drive hebben die 5% te 
langzaam draait. Het formatteren gebeurt via de floppy- 
controller hardware, die door een kwartsklok gestuurd wordt. 
Die klok is bijna net zo goed als uw horloge: binnen onderdelen 
van promilles nauwkeurig. De tijd voor het schrijven van een 
sektor is daardoor de standaardtijd die de ontwerper van het sy- 
steem in gedachten had. Maar de sektor wordt wel 5% korter als 
de drive 5% te langzaam draait. Gaan we die net geformatteerde 
floppy nu beschrijven in een drive die precies de goede snelheid 
heeft dan zal 5% van de informatie buiten de sektor vallen. Ge- 
lukkig is die gap er: daardoor valt alles nog net binnen de gren- 
zen. Het verhaal blijft natuurlijk hetzelfde als de ene drive 2.5% te 
langzaam draait en de andere 2.5% te snel. Nemen we van de eer- 
der genoemde 6250 bytes 95% dan houden we 5937 over. Zorgen 
we ervoor nooit meer dan dat op een spoor te schrijven, dan kun- 
nen we foutloos werken met drives met genoemde tolerantie. 
Bij het lezen zouden veel grotere toleranties mogelijk zijn, omdat 
de klok dan wordt afgeleid uit de gelezen informatie. Het pro- 
bleem zit, zoals gezegd, in het schrijven. 

Maar er staat, behalve databytes en gaps, nog meer op een spoor. 
Iedere sektor wordt voorafgegaan door speciale kodes die het 
synchroniseren van de leescircuits mogelijk maken. Die circuits 
moeten namelijk de eigenlijke databits kunnen onderscheiden 
van de klokbits. Omdat er maar één spoor tegelijk wordt gelezen, 
is dat niet zo gemakkelijk. Ook wordt iedere sektor voorafgegaan 
door informatie-bytes die iets zeggen over de kop (de enige, of één 
van de twee bij een dubbelzijdige floppy), over de sektor en over 
het spoornummer, zodat we zeker zijn dat we met de juiste sektor 
aan het werk gaan. Daarnaast staat er op ieder spoor ook een in- 
dexmark, dat als het ware het nulpunt van een spoor vormt: van 
daaruit worden de sektoren genummerd. 

Tellen we alles bij elkaar en houden we rekening met die 5% 
variatie in snelheid dan blijken er bijna 9.5 sektoren op een spoor 
te gaan. Een halve sektor past op geen enkele manier in het sy- 
steem. Daarom gebruiken we 9 sektoren van 512 bytes per spoor: 
80x9x512/1024=360K. Zowel 500K als 360K is dus juist, alleen is 
de eerste ’K’ 1000 en de tweede 1024. 


SCHIJVEN OPVOEREN 


Wie die 6250 bytes per spoor maar niet vergeten kan, zal zich af- 
vragen of al die gaps niet wat kleiner kunnen. Dat blijkt inder- 
daad zo te zijn: de meeste drives zijn veel beter dan Atari denkt. 
De moderne motorstuurelektronika heeft er niet veel moeite mee 
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om de snelheid binnen 1% konstant te houden. Dan mag je vol- 
gens het bovenstaande verhaal 99% van 6250 gebruiken, dat wil 
zeggen 6187 bytes. Daar blijken 10 sektoren net lekker in te pas- 
sen. Dat is een sektor extra per spoor, of 80 per floppy, oftewel 
40K bytes. Dat blijkt de truuk te zijn die sommige format- 
teerprogramma'’s gebruiken. 
Is de garantietermijn van de drive al bijna voorbij? Kijk dan eens 
voorzichtig in de diskdrive. Er blijkt ‘direkt-drive’ toegepast te 
zijn: de motor drijft direkt de floppy aan. Hoe hard gaat dat ei- 
genlijk? Dat is vast te stellen met de funktie “omw/minuut” uit 
het bijgevoegde GfA-programma. 
Mijn SF354 blijkt 299 toeren te maken: de nominale waarde is 
300. Mijn drive draait dus 1/3% te langzaam: ruim binnen de 
marge van 1%. De ’bios’ aanroep zorgt ervoor dat steeds sektor S 
van de floppy gelezen wordt (funktie ’rwabs’). Wie die A$ niet be- 
grijpt: hierop kom ik verderop in dit artikel terug. 
Het buitenste spoor (spoor 0) heeft een doorsnede van ongeveer 8 
cm. De lengte is dus zowat 25 cm. Daarop passen de eerder ge- 
noemde 6250 bytes. Een bit op dat spoor heeft een ’lengte’ van 
250/(6250x8)=0.005 mm. Niet zo veel, maar op het binnenste 
spoor is een bit nog veel kleiner. De leeskop heeft daar moeite 
mee. In feite bepaalt de maximale dichtheid van het binnenste 
spoor de kapaciteit van de floppy. Dat binnenste spoor (spoor 79) 
is niet het uiterste wat het mechaniek dat de kop verplaatst kan 
bereiken. Dat mechaniek (bestuurd door een stappenmotortje + 
elektronika) heeft geen echte begrenzing. Als je een programma 
maakt dat bewust probeert ‘te ver’ te gaan, hoor je een angstwek- 
kend geraas van het kopmechanisme dat tot aan de as van de 
floppy probeert te komen. Dat kan natuurlijk niet, maar het is 
wel zo dat de sporen 80, 81 en 82 bereikbaar en bruikbaar zijn. 
Daarvoor moet de kop in prima staat zijn. Eventuele slijtage be- 
tekent dat er zich bij de sporen boven de 79 het eerst problemen 
voordoen. Niemand zegt dat je die sporen echt mag gebruiken. In 
de praktijk blijkt dat echter uitstekend te gaan. Dat is dan ook de 
tweede truuk die de formatteerprogramma’s gebruiken. Een heel 

oed voorbeeld staat in START 2, nov/dec 1986. 

tandaard is dus 80x9=720 sektoren. Truuk één levert 80 sekto- 
ren op en truuk twee nog eens 3x10. Samen 110, zo’n 15% 
winst. 
Truuk nummer drie is helaas niet uitvoerbaar, maar dit is hem: 
als je ontdekt dat de maximale dichtheid nog wel wat vergroot 
mag worden, kan je ook de klokfrequentie opvoeren. Dan moet 
het lukken om 11 sektoren op een spoor te krijgen. Om het niet te 
gek te maken moet je dan niet meer dan 80 sporen gebruiken. Dat 
zou dan 80x11x512=440K op leveren. Het zou wel eens kunnen 
dat de Amiga zoiets doet, maar details zijn mij niet bekend. (Die 
kunnen ons als Atari-fans ook niets schelen). Het lijkt mij geen 
prettige ingreep om die klokfrequentie van de floppy controller 
zo’n 10% op te voeren. 


ADMINISTRATIE 


Als je een floppy formatteert met 10 sektoren en 83 sporen, blijkt 
dat TOS daar weinig problemen mee heeft. Bestanden kopiëren, 
folders openen, enzovoorts gaat allemaal feilloos. Alleen een 
‘standaard’ floppy overschrijven naar eentje met 830 sektoren 
door in de desktop twee floppy ikonen op elkaar te leggen werkt 
niet: dat gaat alleen met floppies die precies hetzelfde formaat 
hebben. De vraag is nu, hoe weet TOS met wat voor floppy er ge- 
werkt wordt? Het antwoord is: door in de ’bootsektor’ te 
kijken. 

Sektor 0, spoor 0, kant 0 is de zogenaamde bootsektor. In die sek- 
tor kan een zogenaamde ’bootstrap-loader’ staan. Dat is het geval 
bij de ’TOS-floppy’. De meeste andere floppies hebben die loader 
niet. Wel hebben ze allemaal een hoeveelheid gegevens. De be- 
langrijkste zijn: 


bytes) waarde betekenis 


8-10 200 serienummer 
1-12 S12 _ bits per sektor 
13 2 sektors per cluster 
14-15 Ì gereserveerde sektor (sektor 0 in dit geval) 
16 2 _ aantal FAT's. Wat dat zijn komt nog. 
17-18 112 maximum aantal regels in de directory 
19-20 _ 720 aantal sektoren. Dat kan dus ook 800 tot 830 
zijn, en bij een dubbelzijdige floppy 2x 
zoveel. 
22-23 $ __ aantal sektoren per FAT 
24-25 9 aantal sektoren per spoor. 
Dat kan dus ook 10 zijn, 
26-27 1 aantal kanten: 2 kan ook. 


Het serienummer is bij de ’standaard’ formattering een toe- 
valsgetal van 24 bits. TOS gebruikt het om schijfwisseling vast te 
stellen. Sommige formatteerprogramma’s uit het Public Do- 


id 


main’ vinden het makkelijker om daar een nul te schrijven. 
Daardoor zou het wel eens kunnen dat TOS het niet merkt als er 
een schijf gewisseld wordt. Het programma uit START doet dat 
zoals het hoort. 

TOS bekijkt de floppy in eenheden van 1024 bytes: dat is de zo- 
genaamde ‘cluster’ die dus uit twee sektoren bestaat. Je zou je ook 
sektoren van 1K kunnen voorstellen. Het begrip ‘cluster’ zou dan 
overbodig zijn. Ga je er echter van uit dat er maar 9x512 bytes op 
een spoor gaan, dan hou je een halve cluster over: een aanzienlij- 
ke verspilling. Door clusters te gebruiken hoef je maar van half 
zoveel dingen te onthouden hoe hun toestand is: de administra- 
tie wordt minder omvangrijk. Anderzijds neemt nu het al- 
lerkleinste bestandje al 1K diskruimte in beslag. Die ene K is dus 
een kompromis: met clusters van 10K is er nog veel minder te ad- 
ministreren, maar is de ‘overhead’ bij kleine bestanden nog 
groter. 

De eigenlijke administratie vindt plaats in de FAT, de File Al- 
location Table. Daarin wordt genoteerd welke clusters vrij en 
welke bezet zijn, en hoe de samenhang tussen meerdere clusters 
in een bestand is. Omdat de FAT heel belangrijk is, staat hij twee 
keer op de disk. Daar gaan we straks nog wat dieper op in. 
Met ‘directory’ wordt hier de eerste directory bedoeld. (Atari-fans 
spreken meestal van een folder”). Een regel in de directory bevat 
meer dan alleen de bestandsnaam. Daardoor zijn er 32 bytes 
nodig. Er passen 112 van dergelijke regels in de directory. Hieruit 
blijkt dat hij 32x112/512=7 sektoren beslaat. Ook hier komen we 
nog op terug. 

Wie in staat is zijn disk te lezen zal de genoemde informatie niet 
herkennen. Dat komt omdat alle byte-paren verwisseld zijn: de 
‘meest-belangrijke’ staat rechts. Dit is om historische redenen: 
omdat je bij optellen en aftrekken rechts moet beginnen, vonden 
sommige computerfabrikanten het handig om getallen achter- 
stevoren in het geheugen te zetten. Daar het ook wel handig is als 
een nieuw produkt met een ouder kan samenwerken, blijft die 
oude methode nog steeds in gebruik. In de sektoren die we ge- 
woonlijk lezen en schrijven staan de gegevens wel in de ‘gewone’ 
volgorde, dus net zo als in het geheugen. 


DE FILE ALLOCATION TABLE 


Sektor 0 is, zoals we nu weten de bootsektor. De eerste FAT staat 
in de sektoren 1 t/m 5; de kopie ervan in de sektoren 6 t/m 
10. 

De FAT bevat een lijst met gegevens over clusters. Ieder gegeven 
is een, schrik niet, 12 bits getal. In een sektor passen 512x8/ 
12=341.3 van die gegevens. In totaal dus 5x341.3=1706. Wie kans 
zietom 1.7M op z’n floppy te krijgen zit nog steeds goed. De maat 
van de FAT is alweer het gevolg van de gewenste 
kompatibiliteit. 

Die 12 bits zitten nog meer door elkaar gehaspeld dan in de boot- 
sektor. In het volgende tabelletje stellen de letters telkens 4 
bits voor: 
ABCDEFGHIJKL 


3X16=48 bits in de floppy-FAT 
DABEFCJGHKLI 


4 getallen van 12 bits 


Niet echt gemakkelijk te lezen. Wie dit even tekent, ziet dat het 
voldoende is om groepen van 24 bits te bekijken: drie bytes 
leveren op steeds dezelfde manier twee cluster-nummers op. 
De positie van het 12-bits nummer hangt samen met de cluster 
waarop het betrekking heeft. Het tiende nummer zegt dus iets 
over cluster 10. Het 12-bits nummer kan de volgende waarden 
hebben: 

0 een vrije cluster 

-l de laatste cluster van een bestand (soms de enige) 

-9 niet bruikbare cluster 
>0 een verwijzing naar de volgende cluster. 


Op positie 23 kan dus een verwijzing naar 24 staan, daar weer 
naar 25, dan naar 26 en daar zou -1 kunnen staan. Het bestand 
bestaat dan uit 4 clusters, de lengte van het bestand is iets tussen 
de 3073 en 4096 bytes. De clusters staan niet altijd zo netjes op 
volgorde. Op een floppy waar wat bestanden gewist zijn komen 
‘gaten’ voor. Bij het schrijven van een relatief groot bestand wor- 

en deze gaten opgezocht en na elkaar beschreven. De clusters 
van dat bestand zullen dan waarschijnlijk niet opeenvolgend 
zijn. Wel zal een volgende cluster altijd een hoger nummer heb- 
ben dan een vorige. Bekijk het allemaal zelf maar eens met de 
funkties ’hexa” of "ASCII" onder menuhoofd “sector” uit het 
GfA-BASIC programma. 


DE DIRECTORY 


De meeste Atari-gebruikers bekijken folders in 'ikoonvorm’. Ik 
zie ze liever als tekst, omdat dan zowel de tijd van de laatste wijzi- 
ging als de lengte van een bestand zichtbaar zijn. Op de schijf 
blijkt echter nog iets meer te staan. 


Een ‘regel’ in de directory begint met de bestandsnaam: 11 bytes 
zonder de scheidingspunt. Als het eerste byte van de naam 
hexadecimaal ’'e5’ is, dan is dat bestand gewist. Gewist’ betekent 
niet dat alle informatie gewist is, maar wel dat alle clusters van de 
file vrijgegeven zijn. 

Na het formatteren zijn de sporen 2 tot 79 (of 82) volgeschreven 
met diezelfde 'e5’, tenzij de formateur in zijn wijsheid besloot een 
ander vulpatroon te gebruiken. Dat mag, maar 'e5’ is min of meer 
standaard. Hierdoor is een nooit gebruikte sektor herkenbaar. 
(Gesteld dat je die zou willen herkennen.) 

Om terug te komen op de directory: met het bijgeleverde GfA- 
BASIC programma kunnen we sektor 11 eens bekijken. (Even re- 
peteren: een bootsektor en twee FAT's van 5 sektoren, dat zijn er 
11, nummers beginnen bij 0, de twaalfde sektor is nr. 11!) 

Wie goed is in ASCII zal aan het begin van iedere regel een be- 
standsnaam herkennen. Die wordt gevolgd door een byte dat het 
'attribute’ van het bestand bevat. Meestal, maar niet altijd, is dat 
een nul-byte. De volgende tabel toont alle mogelijkheden: 


byte (hex!) betekenis 
00 een ‘normaal’ bestand 
01 read only 
02 hidden (wordt niet op desktop getoond) 
04 system 
08 volume label (floppy-naam die bij het 
formatteren is opgegeven) 
10 subdirectory (folder) 


Hogere waarden worden voor de floppy niet gebruikt. Wel zijn 
sommige kombinaties van bits denkbaar. 

Via een desktop funktie kan een bestand ‘read only’ gemaakt 
worden. Het ’attribute’ blijkt dan inderdaad de waarde O1 te krij- 
gen. Via de desktop kunnen ook nieuwe folders gemaakt worden. 
Die zijn nu eveneens gemakkelijk te herkennen. 


EXTRA INFORMATIE 


Na naam en attribute blijken 10 gereserveerde bytes te volgen. 
Door het BASIC-programma worden die als vijf nul-woorden 
getoond. Daarop volgen woorden die respektievelijk tijd en da- 
tum van de laatste wijziging voorstellen. Òm die te ontcijferen is 
het allereerst nodig om linker- en rechterbyte van ieder woord te 
verwisselen. Dan staat er in 5-6-5 bits: uur-minuut-sekonde. De 
ervaren binaire rekenaar zal opmerken dat 60 sekonden niet in 5 
bits passen. Daarom worden sekonden per twee geteld. Anders 
zou de tijd niet in het handzame formaat van 16 bits passen. De 
datum is genoteerd als 7-4-5 bits: jaar-maand-dag. Bij het verkre- 
gen jaarnummer moet nog 1980 worden opgeteld. In 7 bits past 
maximaal 127, U zult dus in het jaar 2107 over een andere com- 
puter moeten gaan denken. 


Het volgende woord is interessant: het bevat iets wat de desktop 
niet toont, namelijk het nummer van de eerste cluster van een be- 
stand. Ook hier staan linker- en rechterbyte verwisseld. Het zou 
moeten lukken om dat bestand te vinden, als we wisten hoe clus- 
ternummers en sektornummers samenhangen. Dat blijkt rede- 
lijk logisch, maar toch niet helemaal vanzelfsprekend te zijn. 
De ontwerper van de FAT wist dat een floppy altijd begint met 
bootsektor, FAT, nog een FAT, eerste directory. Dat zijn 
14+5+5+7=18 sektoren. De eerste echt vrije sektor is de 19de. 
Nummer 18 dus. De eerste vrije cluster bestaat uit de sektoren 18 
en 19. In de bespreking van de FAT bleek dat een cluster-nummer 
0 betekent dat de cluster vrij is. Een verwijzing naar cluster 0 is 
dus niet mogelijk. Daarom begint de clusternummering bij 1. 
Bent u daar nog? Cluster nummer 1 blijkt ook niet gebruikt te 
worden, daarom verwijst cluster nummer 2 naar de sektoren 18 
en 19, 3 naar 20 en 21, en zo verder. 

Achttien sektoren zijn dus vast in gebruik. Er zouden er dus 
71720-18702 voor de gebruiker beschikbaar moeten zijn. 
702x512=359.424, dat is 2048 meer dan 357.376. Dat laatste getal 
wordt door de desktop opgegeven na het formatteren van een en- 
kelzijdige floppy. Waar zijn die 2048 bytes nu gebleven? Het vol- 
gende experiment laat dat zien. 

Formatteer een enkelzijdige floppy. Kopieer bestanden totdat de 
floppy precies vol is. (De laatste bestanden moeten < IK zijn.) Be- 
kijk de floppy met het GfA-programma. Dan blijken de sektoren 
716-719 nog steeds ’e5’ te bevatten: ze zijn nog ongebruikt. Nu 
klopt het cijfer wel, maar waarom worden die laatste twee clusters 
niet gebruikt? Ik heb geen idee! Ter nadere kontrole: bekijk de 
directory van die helemaal volle floppy. Deel de lengte van ieder 
bestand door 1024, rond het antwoord af naar boven. Tel alle ant- 
woorden bij elkaar. De som zal 349 zijn. 349*1024= 357.376, dat 
klopt dus. 

Let op: dit is een verhaal over floppies. Het is niet zondermeer 
waar voor hard disks! 
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HET PROGRAMMA 


FlopteST is geschreven voor gebruik met een zwartwit monitor. 
In medium resolutie werkt het echter nagenoeg vlekkeloos. Al- 
leen gebruik in lage resolutie is niet aan te bevelen. De informatie 
”scrolt” dan bij een aantal funkties uw scherm af. 

De eerste twintig regels vormen het hoofdprogramma. Hierin 
wordt een stuk geheugen, A$, gevuld met spaties. Die hebben we 
nodig om sektoren in te lezen. 

A$ moet een string zijn van minstens 512 bytes. Ik ben zelf niet 
kapot van die konstruktie, maar ik ben geen echte GfA expert. Is 
A$ een kortere string, dan loopt het ook wel. Maar om de een of 
andere reden blijft het stuk dat buiten de oorspronkelijke A$ valt 
nul. Zoals het programma hier gegeven is, werkt het goed. 

Na de deklaratie van A$ wordt er een menu gestart. Via het menu 


Do @Hexpr08(10) 
On Menu EHexpr08 (11) 

Laop Print 

5 @Decprië(" 

' OREREERE primaire functies #&xttrt 


Return 
For I=t To 512 


C$=Mid$(A$,I,1) Procedure Help 


@Vlgnd_sctr 
Until V=0 
Return Print 


For I=! Ta 512 @Lees (0) “REEK secundaire functies #44 
A$=A$t" * @Lees (0) Procedure Vlgnd_sctr 
Next I T=Timer Print 
Dim Men$(40) For I=1 To 30 Print “valgende sector? (j/n)"; 
£ @Lees (0) Repeat 
Beta Duuk eet opteren tene mid Next I V$=Inkey$ 
ere Sen T=Tiner-T Until V${>"" Or Mgusek 
Data “Speciaal”, Boot, Dir, te FAT, 2 => Om=30460#200/T If V$="j" 
e FAT, Omw/minuut , Stop,"* Print At (3,3); "omw. /minuut: "; V=l 
Data "Sector", Hexa , ASCII , help,"" Print Using "####.##",Om 5=5+1 
Data ""‚+ EWacht Cls 
ke Return Print "Sector:";S 
For 1=0 To 40 5 Else 
Read Men$(I) Procedure Boot Cls 
Exit If Men$(I)="#" Print At(3,3);"“Baot sector" Menu Men$() 
Next I @Lees (0) Vv=0 
Menu Men$() Pointe serie nummer: "; Endif 
On Menu Gosub Kies EHexpr08(9) 


bytes per sector: "‚12) 
@Decpr08(” sectoren per cluster: "‚14) gaan” 


Procedure Kies @Decpri6(” geres, sectoren: ",15) Repeat 
Local M$ @Decpr08(” aantal FAT's: *,17) Unt.l Inkey$<>"" Or Mousek 
M$=Mid$ (Mens (Menu(0)),1,2) EDecpri6(" max. directory: *,18) Cls 
If M$=" 5" @Decprie(" sectoren per disc: *,20) Menu Men$( 
Edit @Decpri6(" sectoren per FAT: *",23) Return 
Endif @Decpri6(* sectoren per track: *,25) : 
If M$=" B" @Decprió(" aantal zijden: ",27) Procedure Hexpr08(P) 
@Baot ‚Wacht X=Asc(Mid$(A$,P,1)) 
Endif Return If XX16 
If M$=" D" 4 Print "0"; 
@Shudr Procedure Shwdr Endif 
Endif Cls Print Hex$ (0); 
If M$=" 1" Input "Sector:",S Return 
@Fat1 Repeat ; 
Endif Print At(3,3);"bestand at sect =ò Procedure Decpr08(X$,P) 
If M$=" 2" clst* Print X$; 
@rat2 @Lees (5) Print Using "####",Asc(Mid$(A$,P,1)) 
Endif For I={ Ta 512 Step 32 Return 
If M$=" 0" À Print Mid$(A$,I,12);" *; t 
@Snelheid EHexpr08(I+11) Procedure Decpri6(X$,P) 
Endif Print Using *_ ####_ "‚14+2e(As = Print X$; 
If M$=" H" c(Mid$(A$,‚I+26,1))+256EAsc(Mid$(AS,I+ => X=Asc(Mid$(A$,P‚1))+256#Asc(Mid$(A$ => 
@Hsectar 27,10))5 „P+l‚i)) 
Endif @Decpri6("",I+26) Print Using "####",X 
If M$=" A" Next I Return 
GAsector @Vlgnd_sctr i 
Endif Until V=0 Pracedure Lees(5) 
If M$=" h" Return Er=Bios(4,2,L:Varptr (A$),1,5,0) 
EHelp : If Er<>0 
Endif Procedure Fati Print “leesfout:";sEr 
Menu Off S=1 Endif 
Return @eFat (5) Return 
E Return É 
Procedure Asector / Procedure Fat{(5) 
Cls Procedure Fat2 Repeat 
Input "Sector:",S 8=6 Cls 
Repeat @Fat (5) Print "FAT sector:";S 
@Lees (5) @Lees (5) 


if Ccm Cls Next 1 
Piat “Tg Print Far I=i To 512 Step 5 
Else Print *" De eerste sector van een c => @ePrtclstr(Asc(Mid$(A$,I,1))+256 => 
Print C$; luster is: 14 + 2 * cluster nr." *(Asc(Mid$(A$,‚I+1,1)) And 15) 
Endif Print " De tweede sector is: 15 + =ò EePrtclstr(ibtAsc(Mid$(A$,I+2,1) =} 
Next I 2 * cluster nr." )+Int(Asc(Mid$(A$,I+1,1))/16) 


Print Print * Een volgende sector kan ‘a => Next I 
utomatisch’ bereikt worden, door" 
Print * alleen j in te tikken." 


kunnen de primaire funkties geaktiveerd worden. Die gebruiken 
op. hun beurt weer de sekundaire funkties. 

et programma bevat een klein schoonheidsfoutje, dat alleen 
tevoorschijn komt als de File Allocation Table meer dan een sek- 
tor nodig heeft. Wie weet dat de getallen in de FAT 12 bits be- 
slaan, begrijpt dat er 512x8/12=341.3 in een sektor passen. De 0.3 
die overblijft, hoort bij de volgende sektor. Bij mijn enkelzijdige 
floppy heb ik zelden meer dan een FAT sektor nodig. Ik was daar- 
door onvoldoende gemotiveerd om dit netjes op te lossen. 
Ook is kritiek mogelijk op de weergave van sektoren als 
hexadecimale woorden of als ASCII bytes. Dat kan met wat pas- 
sen en meten samen op een scherm. Dan wordt het ook interes- 
sant om dat scherm ‘editbaar’ te maken. Voer voor krakers, 
zou ik zeggen. 


Return 


Procedure Wacht 
Print 
Print “tik toets of muis om door te => 


For 1=0 To 19 
Print Using "HH", I; 


@Drline(0) 
EDrline(80) 
@Drline(160) 


Procedure Hsector 
Cls 
Input “Sector:",S 
Repeat 
@Lees (5) 


For I=t To 512 Step 2 
@Hexpr0B (1) 
@Hexpr08(I) 

BEING kn 5 
Next I 
@Vlgnd_sctr 

Until V=0 


Return 


Procedure Snelheid 
@Llees (0) 


Print * Om de eerste directory te => EDrline(240) 
vinden moet sector 11 opgegeven worden." @Vlgnd_sctr 

Print * Bestandsnaam, attribute, e => Until V=0 
erste cluster en eerste sector worden" 


Print " getoond. Attribute ‘10’ ve => 
rwijst naar een sub-directory. Gebruik" 
Print *” het sectornuamer om de inh => 
aud van die sub-directory te zien." 
Print " Gebruik het cluster nummer => 
om, in de FAT listing, de rest van" 
Print * een bestand te vinden. Vaa => 
k staat het ‘vervolg’ gewoon in de” 
Print * volgende sector, maar niet => 
altijd" 
&Wacht 
Return 


Return 


Procedure Prtelstr(X) 

If X>4000 

X=X-4096 

Endif 

Print Using "####",X; 
Return 
Frank 
Procedure Drline(X) 

Draw 0,32+X Ta 639,32+X 
Return 
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ZAKELIJKE 


SOFTWARE 


DATABASES 
Astodat Il 
Laserbase 

ST Datamanager 
Habaview 

Hippo Simple 
DB Man 

Trim base 


FINANCIAL SOFTWARE 


ST Financial Junior 

ST Financial Personal 

ST Financial Professional 
ST Financial Voorraad 
Projecta-4ST 

Divi Boek 

Makro Boek 


DIVERSEN 
K-switch 

K-graph 

K-graph Il NIEUW! 
K-spread 

Vip 1.2.3 (GEM) 
Swift Calc 

Easy Calc 

Habadex phonebook 
Haba-spell 

Haba mailmerge 
GST 1st Mail 


TEKSTVERWERKING 
Habawriter Il 
Signum 

Color Writer 
Wordstar 3.0 (cpm) 
Textomat 

Final Word 

Regent word/spell 
K-word 

Word Writer 
Thunder 


MODEM SOFTWARE 
Viewdata st 

Gem viditel 

VT 100 Terminal 

PC intercomm 

K-comm v2.0 

Mi-term 

Flash 

Dos shell 

Real time clock 

Z-Time (internal clock/ call.) 
voor inbouw 

Micro time (int. clockcard.) 


PROGRAMMEERTALEN 
G.F.A. basic v2.0 
GFA Basic Com. 
Fast basic 
Megamax c 

G.F.A boek + disk 
Metacomaco pascal 
Mark Williams C 
K-seka assembl. 
Devpac hisoft 
Pro-Fortran 
Cambridge lisp 
Expert Opinion 


Lattice C compiler metacomco 


G.S.T C compiler 
L.D.W basic 
Modula 2 

ST Pascal 

U.C.S.D. pascal 
Macro assembler 
GST Macro assembler 
B.G:Pit 

Profimat ST 


OFFICIAL ATARI REPAIR CENTER 
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PROGRAMMEER UTILITIES 


K-Resource 

(resource constructie set) 
Menu + 

Modula 2 toolkit 


UTILITIES ALGEMEEN 
ST toolbox 

Disk help 

M-disk (ram d) 
Kissed (debug) 
Toolbox robtek 
Crystal 

Lock Smit 

ST Mult. hardcopy 
Michtron utilities 
Hippo disk utilities 
ST Key 

Super Directory 


DESC ACC 


Cornerman 

Rhytm 

Powerpak diary 

Desk assist 

Macro manager 
Powerpak database 
Powerpak adressbook 


TEKENPROGRAMMA'S 
STAD 

Degas 

Profi painter 

Picop (tek.ut.) 
G.S.T frac gen 
Printmaster 
Colour space 
Monostar 
Monostar plus 
Degas Elite 
Datamap col | 

Gfa Draft (cad) 

Art Director 

Turbo dizer 
Publishing Partner 
Fleetstreet publisher 
Type Setter Elite 
Text design st 
Paintworks 

Easy draw 
Animator michtron 
Mica 

Platina ST 

Cad-3D 

Future Design Disk 
N-Vision 

Maps & Legends 
Colorstar 

Gfa Vektor 

Film Director 
Sprite constr. set 


MUZIEK PROGRAMMATUU 


Music studio 

Midiplay 

Steinberg research 

24 sporen recorder 
Steinberg research Voodoo 
(random sound generator) 
Treesoft midi-recorder 
Musidisc (midiplay lib.) 
G.L.S.T (sound tool) 
Digidrum 


ADVENTURES 
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OFFICIAL ATARI ST-DEALER 


Infocom adventures uit vooraad leverbaar 


Oper. Hong Kong 
Transylvania 
Fahrenheit 
Treasure Island 
Crimson Crown 
Perry Mason 

The pawn 
Hacker 

Hacker Il 

Exodus Ultima III 


ER 


Mind Shadow f_119,— 
Borrowed time f_119,— 
Ultima Il f_119,— 
Spiderman f_ 49 — 
GAMES 

World Games frrt 7995 
Leader board f_ 99, — 
Arena f__79,— 
Psion Chess f__99,— 
Tee-Up golf f_ 59, — 
High Roller f_129,— 
Wintergames f 99, — 
Flipside f_ 49, — 
Mean 18 golf f_119,— 
Match Point f. "99 
Shuffle board f_ _79,— 
Karate master f_ 49,90 
Major Motion f__89,— 
Lands of Havoc f_ 99, — 
Xtron f__99,— 
Red alert f_ 49,— 
Little comp p. f_ 99 — 
Deep space f_129,— 
Gato f_109,— 
Silent service f_ _99,— 
Space Station f _79,— 
ST Karate f__95,— 
ST Warzone f__59,— 
Starglider f_ 99, — 
Mercenary Comp. f_ 99, — 
Q-Ball f__69,— 
Electr. Pool f_ _79,— 
Flicht Simul. II 

(Nul voor kl/mon) f_179,— 
Thai Boxing f__49,50 
Karate Kid II f_ _85,— 
Balance of Power f_139,— 
Phantasie Il f_129,— 
Shuttle Il f_ _79,— 
Liberator f__ 59,50 
M.G.T f__99,— 
Metrocross f__99,— 
Road War 2000 f_129,— 
Brataccas f__79,= 
Mudpies f_ 59, — 
Monkey business f__79,— 
Black cauldron f_149,— 
Rogue f_119,— 
ST Protector f_ 79, 
ST Fireblaster f__59,— 
Temple of Apshai f_109,— 
Strip Poker f- „69 
Terrestrial Encounter f__59,— 
Timeblast f _ 39,95 
Two on Two basketball f ‚— 
Space Pilot f__49,50 
Championship Wrestling f_69,95 
International Karate f_ _79,— 
Typhoon f 99, — 
Joust - f__59,— 
Plutos f. 59,50 
Wanderer f_965,— 
Goldrunner f_ 99, — 
Mouse Trap f_ 99, — 


í HARDWARE | 


HARDWARE 4 

Atari 1040 stf/sm 125 f 2399, — 
Atari 1040 stf/sc 1224 f_ 2998, — 
Atari 520 stM/sf 354 f_ 1198, — 
Modulator voor Atari ST f_269,— 
Nu verkrijgbaar!! Kleuren Digitizer 

voor 260/1040 ST f_ 498, — 
Ook!!!Mouse Matjes v.a. f_19,95 
Compactkast ST f_169,— 


Leveringen geschieden onder rembours door 
heel Nederland. De rembourskosten varieren 
van 12,50 voor programmatuur tot 25,00 
voor hardware. (eventuele prijswijzigingen 
voorbehouden.) 


Prijswijzigingen voorbehouden. Alle prijzen incl. BTW 
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Nederlands grootste computer speciaalzaak — Verzending door heel Nederland 


ATARI SPECIAL SHOP TEL. 010-4148605 


Hoogstraat 26-53-65 Rotterdam. Postorders tel. 010-4133495 


Dat START alles wat met tekenen 
te maken heeft een warm hart toe- 
draagt, merkt u elk nummer aan de 
voorplaat van Robert van der 
Kroft. 

Die samenwerking leidde er toe dat 
Robert in nummer twee het anima- 
tieprogramma FILM-DIRECTOR 
testte. Er is nu een konkurrent: im- 
porteur SOFT-ST stuurde ons een 
recensie exemplaar van ANIMA- 
TOR. Uiteraard vroegen we Robert 
om ook ditmaal als expert op te 
treden. 


LEKKERST 
VOOR HET LAATST 
ANIMATOR, van het Amerikaanse 


softwarebedrijf Aegis, is ontwikkeld voor 
de Commodore Amiga en pas later omge- 
schreven voor de ST. Kennelijk groeit de 
ST-markt in Amerika momenteel als kool 
en was het niet langer verantwoord om die 
markt te laten liggen. Een goed teken. 
Dat omschrijven is helaas niet vlekkeloos 
gebeurd: de software heeft (nog?) wat 
mankementen. Laten we gelijk maar even 
door de zure appel heen bijten en de bugs 
ter sprake brengen. Het lekkerst bewaren 
we zoals het hoort voor het laatst. Blijven 
lezen dus! 
Allereerst is het heel vervelend dat het pro- 
gramma slecht naar de muisklik luistert. 
Het gebeurt keer op keer dat je denkt dat je 
een nieuwe funktie aktiveert en dan later 
merkt dat de vorige funktie nog “’aan” 
staat. Een tweede bug bevindt zich in het 
kleurenmenu. Als je de cursor over de rode 
kleur zet, wordt hij blauw. Zet je hem over 
blauw, dan krijg je rood. De kleur die het 
blokje heeft voordat de muis er op staat is 
echter bepalend. Kortom: eerst kiezen en 
dan pas de muis bewegen. 
Tenslotte lukte het me enkele keren de me- 
nubalk in de war te maken. Na een beetje 
rommelen werd alles echter weer normaal. 
EE bugs, maar gelukkig geen 
atale. 


GROEIENDE SCHOORSTEEN 
Bent u daar nog? We hebben de kritiek ge- 
had. Voor de rest is Animator gewoon een 
heel erg leuk programma om mee te 
spelen. 

Het principe van het pakket is gebaseerd 
op veelhoeken. Elke willekeurige figuur is 
op te bouwen uit veelhoeken. Laten we 
eens een tekenfilm maken getiteld ”het 
huisje dat kon vliegen”. We tekenen daar- 
voor een vierkant op het scherm (fig 1). 
Daarna maken we midden in de bovenste 
ribbe van het vierkant een nieuw hoek- 
punten trekken dat omhoog om een dak te 
maken (fig 2). Op dit moment hebben we 
al een filmpje! Animator berekent name- 
lijk alle edje die tussen figuur l en 2 
liggen. Bij afspelen zien we het dak dan 
ook langzaam groeien. Toch is het eigen- 
lijk niet helemaal juist om van “tussenlig- 
gende beeldjes” te spreken. Als we wijzi- 
gingen willen aanbrengen kan dat name- 
lijk alleen in figuur 1 en figuur 2. De over- 
gangsfase houdt Animator voor zichzelf. 
Op dezelfde manier kunnen we vier pun- 
ten aan de rechter zijkant van het dak toe- 
voegen en een schoorsteen laten groeien 
(figuur 3). 

Een deur (figuur 4) is van hetzelfde laken 
een pak. Tot nu toe zijn we er in geslaagd 
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ANIMATOR: 


De kunst van 
het vervormen 


B 
En 
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tekeningen DEGRG 


7 
het huisje uit slechts een veelhoek te laten 
bestaan. Als we ook nog een raam willen 
hebben (figuur 5), moet een tweede veel- 
hoek toegevoegd worden. 

Ons huisje ziet er nu uit als in figuur 6 of 7. 
Bij het afdraaien van het filmpje zijn nooit 


unten zichtbaar. Animator werkt naar 
euze met kontouren of massief. 


Het wordt pas leuk als we het huisje laten 
vliegen. Je kunt het hele objekt beetpak- 
ken en naar een nieuwe plaats brengen. 
Zoals steeds: Animator berekent de over- 
gang. Er is maar één ding waar we op moe- 
ten letten: dat het raam niet achterblijft. In 
het pick-menu bepalen we eerst wat we 
manipuleren: punt, punten, veelhoek, 
veelhoeken of alles. Veelhoeken of alles is 
in dit geval een juiste keus. Huis en raam 
worden als één objekt behandeld en ver- 
schuiven bij afdraaien gelijktijdig naar 
hun nieuwe plaats (figuur 8). 

We kunnen het huisje ook roteren, vergro- 
ten, verkleinen of in een as spiegelen. 
Vooral dat laatste is erg indrukwekkend. 
Animator verandert het huisje voortdu- 
rend van perspektief, zodat er diepte in de 
tekenfilm komt (figuur 9). 

Bovendien zijn er ook kombinaties mo- 
gelijk: het huisje gaat dan van positie A 
naar positie B TERWIJL het bijvoorbeeld 
een draai van 180 graden maakt. Bijzon- 
der imposant. 

Natuurlijk kan het hele animatiefilmpje 
verrijkt worden met een zon die op en weer 
onder gaat en een voorbij schuivende 
wolk. 

Zo’n wolk is snel gemaakt met een aantal 
cirkels. Animator heeft standaard cirkels 
en sterren in huis. Eigenlijk zijn dit na- 
tuurlijk ook gewoon veelhoeken, zij het 
heen cirkel nogal wat hoekpunten 
heeft. 


IMPORT 


Kan Animator buiten veelhoeken ook ge- 
detailleerde tekeningen animeren? Het 
antwoord is “ja maar…”. Het is mogelijk 
een tekening in het Neochrome-formaat 
in te laden, daar stukken uit te snijden en 
die te verschuiven. Dit biedt dus ongeveer 
dezelfde mogelijkheden als Film-director, 
maar ik zal Animator niet snel op die ma- 
nier gebruiken. Film-director laadt twee 
tekeningen in en onthoudt op welke ma- 
nier ze in stukken zijn gesneden. Anima- 
tor bewaart de stukken afzonderlijk op 
schijf. Dat betekent hfdlinkscel, 
hfdrecht.cel, lijfvoor.cel, lijfzij.cel, enz. op 
schijf. De uiteindelijke film “weet” welke 
stukken er nodig zijn, maar tijdens het 
animeren zit je voortdurend met die disk- 
drive in je maag. Bovendien is er geen en- 
kele manier om in Animator een tekening 
bij te werken. Daar moet telkens Neochro- 
me weer voor worden geladen. 

Wat mij betreft is de kompabiliteit met 
Neochrome alleen interessant voor het 
toevoegen van decors. 


TEKST EN UITLEG 

Animator beschikt over een heuse monta- 
getafel. Zes stukken film kunnen gelijktij- 
dig bewerkt worden. Dit is de plek om te 
knippen, te plakken en te koren Als 
leuk extraatje kan Animator de zes stuk- 
ken “tegelijk” afspelen. 

Een belangrijk onderdeel van een teken- 
film is de “timing”. Bij Animator is die per 
handeling instelbaar. Als we vinden dat 
onze schoorsteen te langzaam groeit, ge- 
ven we dat gedeelte van de film via het 
time-menu eenvoudig een kortere tijds- 
duur mee. 


Het editen van een film kan echter ook 
met een tekstverwerker! Het programma 
slaat een film op als een ASCII-file. In 
principe is een tekenfilm daardoor ook he- 
lemaal in First Word te maken. De uit- 
stekende Engelse handleiding zet de lief- 
hebber daarbij prima op het spoor. 


Animator is een prima pakket voor wie 
grotere vormen wil animeren. Van een tí- 
telrol voor een videoband met bewegende 
letters kan echt iets heel bijzonders wor- 
den gemaakt. 

Animeren met Animator ‘kost relatief wei- 
nig tijd. Voor een tekenfilm is eigenlijk 
niet meer dan een storyboard met key- 
drawings nodig die ook nog eens eenvou- 
dig uitelkaar af te leiden zijn. Alle moeilij- 
ke tussenvormen berekent het program- 
ma. Op die manier maken vierentwintig 
beelden al een film van een sekonde of 
tien. De ouderwetse manier van cel- 
animatie vult er net een sekonde mee. 
Wie een film klaar heeft, kan hem aan ie- 
dere ST bezitter kado doen. PLAYER, de 
bijgeleverde uitgeklede versie van Anima- 
tor, kan alleen tekenfilms afspelen en mag 
vrij worden gekopieerd. 


Jet 


aarom ook de Astroïden in de volgvlieg- 


* 
af | 
tuigen hun snelheidsmeters oplopen. 
y- jp reeuw in de koptele- 


CHALLENGE 


De naam van de planeet is AST. 
Het jaar: 2001. Een delegatie van 
geleerden heeft zojuist de beslissing 
genomen een onderlinge vete einde- 
lijk te beslechten. De Astroïden zijn 
sinds hun bestaan in twee kampen 
verdeeld. De ene helft van de bevol- 
king meent dat de planeet ASTRO 
plat is. De andere helft houdt 


‚ Staande dat hun wereld ellipsvormig 


is. Een expeditie zal de waarheid 
aan het licht moeten brengen. 


Kapitein Spot heeft de leiding over de 
luchtvloot die het onderzoek zal uitvoe- 
ren. Opdracht is om tot de rand van de pla- 
neet te vliegen of, in het geval de planeet 
ellipsvormig is, een volle baan om Astro 
te voltooien. 

De luchtvloot, honderden schepen groot, 
vertrekt voorspoedig. Spot, zelf een over- 
tuigd ellips-aanhanger, bestuurt het voor- 
ste vliegtuig, een G-17. Energiek door- 
breekt hij de geluidsbarrière: MACH-3 
volgt luttele sekonden later. 

Spot geniet groot aanzien bij zijn man- 
schappen. In blind vertrouwen laten 


Atari-ST TV-interface 


Letop: Dit mag u nlet missen!!! 


e planeet! Hij ver- 
agen van de luite- 
it!” beveelt Spot 
daad bij het 

troïden in Igvliegtuigen 


gehoorzamen sla 

Pas dan richt Spot zijn blik naar beneden. 
Hij slaakt een kreet van afgrijzen. Astro is 
plat! Diep onder hem is een duidelijke 
rand te zien. 

Helaas beperkt de grens zich niet alleen 
tot de planeet. De atmosfeer boven Astro is 
ook afgebakend. Met doffe klappen slaan 
de vliegtuigen tegen de rand. 

Het einde komt snel en pijnloos voor Spot 
en zijn manschappen. Niemand overleeft 
de plotselinge verandering in snelheid. 
Het leed voor de bewoners van de planeet 
vangt echter nu pas aan. De wanden van 
de atmosfeer hebben namelijk een 
vreemde uitwerking op de vliegtuigen. Ze 
stuiteren terug naar de bewoonde wereld 
en slaan gaten in de planeet. Woonkernen 
worden niet ontzien. Een enorme paniek 
breekt uit. 

Het is aan u om Astro te hulp te komen en 
de spookschepen te vernietigen. U be- 
schikt over drie verrijdbare raketbasissen, 
die u bestuurt met de muis. 


Astro Challenge werd geschreven door 
Iban van der Wal voor gebruik op een 
monochrome monitor. 

Misschien heeft u ooit op een 8-bitter een 
grafisch spel in BASIC proberen te schrij- 


en NS Je 5 
‚ bee 


fl. 149,-— 
(incl. BTW) 


ven. Goede kans dat u tien kniebuigingen 
kon maken voor een sprite van de ene naar 
de andere kant van het beeldscherm was 
verhuisd. Astro Challenge demonstreert 
dat dit met GfA-BASIC en de ST verleden 
tijd is. U zult de ruimteschepen nauwelijks 
bij kunnen houden. En dan hebben we 
nog niet eens de compiler gebruikt. 
Alleen het toevoegen van geluid was in 
eerste instantie een probleem. Op het 
moment dat het schietgeluid gepro- 
duceerd werd, stonden de sprites even stil. 
Die vertraging bedierf het visuele ge- 
noegen. 

Gelukkig presenteerde Egon Lubbers in 
het vorige nummer van START een ma- 
nier om geluid via een interruptroutine af 
te spelen. Een interruptroutine kan ‘te- 
gelijk’ met een BASIC-programma af- 
gehandeld worden. Dat bleek de oplossing 
voor de gewenste kombinatie van geluid 
en vloeiend bewegende sprites. 

Naast de al genoemde ’stuiter-aanval’ 
heeft Astro Challenge nog een aantal spe- 
cialiteiten. De belangrijkste is een heuse 
‘challenging stage’ waarin u, als beloning 
voor het afslaan van een aanval, de kans 
krijgt een aantal spookschepen te vernieti- 
gen zonder dat ze u kunnen raken. 
Daarnaast bouwt het spel de achtergrond 
elke keer opnieuw ‘random’ op en bevat 
het een echte scoretabel die op schijf wordt 
bewaard. 

Astro Challenge is dus niet alleen een 
spannend aktiespel, het biedt ook een 
schat aan procedures om te bestuderen. 


X Iban van der Wal 


Ontdek nu de kleurrijke mogelijkheden die uw 
Atari-ST biedt voor nog geen 150 gulden. 
Met deze interface kunt u de Atari aansluiten op 
elke normale (kleuren) televisie en zo in kleur 
genieten van uw tekenprogramma's en spelletjes. 
Binnen 5 minuten te installeren door: 

= ingebouwde netvoeding 
aansluiting voor TV antenne ingang (kan. 36) 
= composite video uitgang (cinch 
= audio uitgang (cinch) 
met Atari-monitor konnektor (ous eenvoudig “inpluggen”) 
iran : tent 
levering waarden, gedepmenrd bij eh On nan ttern eenen 


mt air bestel ik …. Atari-TV interfacel's) 
af. 


IBRUNELCO 


Bestelbon: uitknippen en in voldoende 
frankeerde envelop opsturen naar: 


49, (inc. BTW, exd. f. 8,50 rembourskosten) 


Ik verzoek u deze op te sturen naar: 
MOE eren 


Posteode: tw 
Plaats: eN EEN NE! 


39 


Hidem 
Spoke 1156,14 
Spoke 16745024,0 
For T4=l To 28 

Read D.ata% 

Schat$=Schat$+Chr$(D.ata%) 
Next TZ 
Data 0,0,1,0,2,0,3,0,4,0,5,0,6,25,7,0 => 
‚8,16,9,16,10,16,11,0,12,10,13,9 
For T4=1 To 28 

Read D‚.ata% 

Let Ontplof$=Ontplof$tChr$(D,ata%) 
Next TX 
Data 0,0,1,0,2,0,3,0,4,0,5,0,6,10,7,0 => 
,8,16,9,16,10,16,11,0,12,80,135,9 
Dim Naam$(6),Punten4(6) 
If Exist("score.dat") 

Open "I",#1,"score.dat" 

For T4=t To 5 

Input #1,Naam${(T4) 
Input #1,PuntenX (74) 

Next TX 

Close #1 
Endif 
Planeet$=Mki$(B)+Mki$(B) +MKki$(O) 
Planeet$=Planeet$tMki$(O)tMki$(1) 
For I4=l To 16 

Read Voor ,Achter 

Planeet$=Planeet$tMkis(Achter)+Mki$ => 
(Vaar) 
Next IX 
Data 0,0,0,2016,2016,6168,8184,9156,1 => 
1772,22498,16244,18410,28666,38885,23 => 
254,45035 
Data 20646,38885,22390,45977,11244,21 => 
522,13652,19114,6840,9540,2016,6148,0 => 
„2016,0,0 
Plof3$=Mki$(B) +MKi$(7)+MKi$(O) 
Plaf3$=Plaf3$+Mki$(O) +Mki$(L) 
For I%=1 To 16 

Read Voor,Achter 

Plof3$=Plaf3$tMki$(Achter) +Mki$ (Voor) 
Next IX 
Data 2176,65535,8,65535,8320,65535,54 => 
5,65535,2056,65535,528,65535,8322,655 => 
35,33312,65535 
Data 8322,65535,16,65535,2312,65535,5 =d 
2769,65535,8736,65535,134,465535,8192, =h 
65535, 1288,65535 
Plof2$=Mki$(B)+MKi$(7) +MKi$(O) 
Plaf2$=Plaf2$+Mki$(O)+Mki$(1) 
For I4=t To 16 

Read Voor,Achter 

Plof 2$=Plof2$t+Mki$ (Achter) +Mki$ (Voor) 
Next 1% 
Data 0,0,0,0,128,448,544,2052,2184,40 => 
88,864,8188,9362,16382,2600,16382 
Data 9554,16382,544,8188,2504,4088,0, => 
2032,544,992,128,448,0,0,0,0 
Plofi$=Mki$(B)+Mki$(7) +MKi$(O) 
Ploft$=Plofi$tMki$(O)+Mki$(H) 
For I%=1 To 16 

Read Voor ,Achter 

Plafi$=Plofi$tMki$ (Achter) +Mki$ (Voor) 
Next I4 
Data 0,0,0,0,0,0,0,0,0,0,0,128,128,99 => 
2,544,2032 
Data 320,992,0,448,0,0,0,0,0,0,0,0,0, => 
0,0,0 
Let Ontploft$=Mki$(B) +Mki$(B) +Mki$(O) 
Let Ontploft$=Ontploft$tMki$(O) +Mki$(1) 
Far I4=1 To 16 

Read Voor ,Achter 

Let Ontploft$=Ontploft$+Mki$(Achter 
)+Mki$ (Vaar) 
Next I% 
Data 1088,0,0,0,2184,0,16384,0,34,0,5 
120,0,32842,0,0,0 
Data 2321,0,32768,0,8194,0,544,0,1638 
8,0,4368,0,0,0,576,0 
Vijand$=Mki$(B) +MKki$(7) +Mki$(O) 
Vijand$=Vijand$tMkis(O)+Mki$(1) 
For I%=1i To 16 

Read Voor,Achter 

Vijand$=Vijand$tMkis (Achter) +Mkif(V 
oor) 
Next 1% 
Data 0,0,0,0,0,0,0,0,0,2016,2016,6168 
‚6168,10212,8196,24570 
Data 32766,32769,65535,0,32766,52769, 
8184,24582,0,8184,0,0,0,0,0,0 
Speler$=Mki$(B) tMki$(7) +Mki$(O) 
Spelert=Speler$tMki$(O) +Mki$(1 
For I%=1i To 16 

Read Voor ,Achter 

Speler$=Speler$tMki$(Achter)+Mki$(V 
oor) 
Next I% 
Data 384,0,384,0,384,0,3584,0,384,0,57 
6,0,576,0,576,0 


Data 576,0,1440,0,3024,0,13932,0,2008 => 
2,0,49149,0,32769,0,465535,0 
Speler1i$=Spelers 
Speler2$=Spelers 
Planeeti$=Planeets 
Sprite Planeet$,Random(608)+16,Randam => 
(305) +16 
Sprite Planeeti$,Random(608)+16,Rando => 
m(305) +16 
Sprite Speleri$,10,591 
Sprite Speler2$,30,3591 
Vix%=Random(608) +16 
ViyZ=Random(200)+16 
Vijandi%=| 
Levens4=3 
Op=6 
Stage%=! 
For T=i To 200 
If Random(10)t1>1 
Plot Random(639)+1,Random(3570) +1 
Else 
XX=Random(639) 
YL=Random(370) +1 
Draw XZ,Y% To XA+1,Y4 To XXt1,YA+ =d 
1 To XX,YZ+1 To X%,Y4 
Endif 
Next T 
Line 0,3570,659,370 
Get 0,0,639,370,5$ 
Deftext 1,0,0,13 
Text 540,398,"Score :"+Str$(Scare%) 
Deffill 1,2,8 
Bax 150,100,490,300 
Pbox 152,102,488,298 
Deftext 0,16,0,52 
Graphmode 2 
Text 250,137,"Top Five" 
Deftext 0,1,0,15 
For Y4=l To 5 
Text 170,150+25%Y%,Y4 
If Naams (VA) <4>"" 
Text 190,150+25#Y%,Naam$ (YX) 
Else 
Text 190,150+25#Y%,String$(25,".") 
Endif 
If PuntenX (YX) >0 
Text 430,150+25#Y%,PuntenX (YX) 
Else 
Text 430,150+25#Y%,String$(5,".") 
Endif 
Next YZ 
Deftext 0,0,0,4 
Text 208,290,"Press mouse button or k 
ey to continue” 
Repeat 
Until Len(Inkey$) Or Mousek 
Put 0,0,5$ 
Deftext 1,0,0,13 
Graphmode 1 
While Mousek 
Wend 
Alert 0," Space Shot: 
!By Iban van der Wal: "‚1,"Begin!! 


Sprite Speler$,Mousex, 360 
Gosub Vijand 
Gosub Geraakt 
If Mousek=1 And KogelX=0 
Void Xbios(32,L:Varptr (Schat$)) 
Kogel%=1 
Spr _x%=Mousex 
Spr_y4=350 
Line Spr_x%,Spr_y4,Spr_x4,Spr_yk-22 
Endif 
If Kogelk=| 
Color 0 
Line Spr_x%,Spr_y4,Spr_x4,Spr_yk- => 
Int (Op) 
Color 1 
Line Spr_x%,Spr_y4-22,Spr_x%,Spr_ => 
yL-22-Int (Op) 
Spr_y4=Spr_yk-Int (Op) 
If Spr_yu<=-l 
Kogel %=0 
Spr _x4=9999 
Spr_y4=9999 
Endif 
Endif 
Exit If Hit4>0 
Laap 
Scarei%=Int ((400-V1y4)/10) (Int (Op) -5) 
VixZ=Random(608) +16 
ViyZ=Random(200)t16 
Rú=Random (2) 
Bú=Random(2) 
Spr _x4=9999 
Spr _y4=9999 
Kagel %=0 


If Hit%=1 
ScoreX=ScorektScoreld 
If Op+0.3(=21 

Op=Op+0.3 
Endif 
Inc Knal% 
If Knal4=10 
KnalX=0 
If Stagekt1{=5 
Inc Stage% 
Verhoging !=True 
Else 
Verhaging!=False 
Endif 
Gosub Bonus 
While Mousek 
Wend 
If Verhaging! 
Alert 0," Stage "+Str$(Stage => 
hen lk ABR 


Text 540,398,"Score :"+Str$(Score%) 
Put 0,370,Ships$ 
Gota 5 


Procedure Vijand 
If Vijandi%=l 
Vsync 
Sprite Vijand$,Vix%,Viy% 
If RZ=l 
Vixk=VixktInt (Op) 
If Vink=d623 
Vixs=623 
RX=0 
Endif 
If B4=i 
Viyk=Viyk-Int (Op/2) 
If ViyX<=16 
Viyú=16 
BĲ=0 
Endif 
Else 
Viy%=VlyZtInt (Op/2) 
If Viyz=>360 
Viyx=360 
B4=1 
Endif 
Endif 
Else 
Vixk=Vixk-Int (Op) 
If VixZ=l6 
VixZ=16 
Rú=1 
Endif 
If Br=l 
Viyk=Viyk-Int (Op/2) 
If Viyú<=l6 
Viyk=16 
B/=0 
Endif 
Else 
ViyZ=ViyZtInt (Op/2) 
If ViyZ=>360 
Viy=360 
B4=1 
Endif 
Endif 
Endif 
Endif 
Return 


Procedure Geraakt 
If Abs(Spr_x%-Vixx)<=18 And Abs(Spr => 
_yl-1l-Viyz)<=18 
Void Xbios(32,L:Varptr (Ontplof$)) 
Color 0 
Line Spr_x%,Spr_y4,‚Spr_x4,Spr_yi-22 
Color 1 
Spoke 16745024,1 
Pause 3 
Spoke 16745024,0 
Sprite Vijand$ 
Sprite Plof1$,Vix4,Viy% 
Pause B 
Sprite Plofi$ 
Sprite Plof2$,Vixk,Viyz 
Pause 8 
Sprite Plof2$ 
Sprite Plof 3$,Vix%,Viyx 
Pause 8 
Sprite Plaf5$ 
Put 0,0,5$ 
Hit%=1 
Endif 
If Abs(Mousex-VIx/)<=18 And Abs(560 => 
=Viyi){=18 


Void Xbios(32,L:Varptr (Ontplof$)) 
X_pask=Mousex 
Spoke 16745024,1 
Pause 3 
Spoke 16745024,0 
Put 0,0,5$ 
Sprite Spelers 
Sprite Vijand$ 
Sprite Plof1$,‚X posX,360 
Pause 8 
Sprite Plof1$ 
Sprite Plof2$,X pas%,360 
Pause 8 
Sprite Plof2$ 
Sprite Plof3$,X _pas%,360 
Pause 8 
Sprite Plof 3$ 
Put 0,0,5% 
Hit%=2 
Levens4=Levensk-1 
If Levens4=2 
Wave 0,0 
Sprite Speler2$ 
Alert 3,"Second ship....",‚1,"Su => 
ccess",B4 
Get 0,370,100,399,Ships$ 
Endif 
If Levens4=l 
Wave 0,0 
Sprite Speler1$ 
Alert 3,"Last Ship....",1,"Succ =ò 
ess" ‚BX 
Get 0,370,100,399,Ships$ 
Endif 
If Levens%=0 
Wave 0,0 
Put 0,0,5$ 
If Score4>0 
Gosub Inschrijven 
Endif 
Alert 2,"Do you want to playtag => 
ain?",‚1,"YesiNo",BA 
If B4=1 
Run 
Else 
Cls 
Spoke 16745024,1 
Spoke 1156,15 
Wave 0,0 
Edit 
Endif 
Endif 
Endif 
Return 


Procedure Inschrijven 
Ja%=0 
For Tú=1 To 5 
Exit If Score%>Punten#(T%) 
Next TZ 
Jau=T4 
If Jax>0 And Jax%<6 
For T4=5 Downto Ja% 
Naam$ (T4+1) =Naam$ (TZ) 
Punten4(T4+1) =Punten4 (TX) 
Next T4 
Naam$(Jas)="" 
Punten4(Ja%)=Score% 
Deffill 1,2,8 
Box 150,100,490,300 
Pbox 152,102,488,298 
Deftext 0,16,0,32 
Graphmade 2 
Text 250,157,"Top Five" 
Deftext 0,1,0,13 
For Y%=1 To 5 
Text 170,150+25#Y%, YA 
If Naam$ (Ya) <>"" 
Text 190,150+25#Y%,Naam$ (YZ) 
Else 
If YA<>Jax 
Text 190,150+25#Y%,String$( => 
Zon) 
Endif 
Endif 
If Punten (YZ) >0 
Text 430,150+25*Y%,Punten% (YX) 
Else 
Text 430,150+25*Y4,String$(5, => 
| 
Endif 
Next YZ 
Deftext 0,0,0,4 
Text 223,290,"Enter your name and => 
press <return>* 
Deftext 0,1,0,153 
Do 
Toets%=Inp{(2) 
Exit If Toets4=13 
If ToetsX=8 And Len(Naam$(Jax))>0 
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SALES REPRESENTATIVE 
ATARI/AMIGA m/v 


De funktie-inhoud 
v Zelfstandig prospekts behandelen. 
/ Demonstraties verzorgen. 

/ Orders afsluiten. 


De funktie-eisen 
/ Goede kontaktuele eigenschappen. 
/ Representatief voorkomen. 

// Natuurlijk overwicht. 

/ Ervaring met computers (Atari en/of 
Commodore) strekt tot aanbeveling. 


Wij bieden een interessante baan in een dynamische markt. Wij eisen van onze 
medewerkers, dat ze zelfstandig kunnen werken en geven een grote mate 
van vrijheid. De primaire en secondaire arbeidsvoorwaarden liggen boven het 
gemiddelde. Kandidaten die samen met ons aan een goede toekomst willen 
werken nodigen wij uit schriftelijk te reageren t.a.v. de heer N.Steenhuis. 


If Spr_yäc=-l 
Kogel %=0 
Spr_x4=9999 
Spr_y4=9999 

Endif 

Naam$(Ja%)=Naam$(Ja%)+Chr$(To => Endif 

) If Abs(Spr_x%-Vixx)<=18 And Spr_y => 
Endif k-11>166 And Spr_yX-11<184 
Text 190,150+25#Ja%,Naam$ (Jax) Void Xbios(32,L:Varptr (Ontplof$)) 
Pbox 190tLen(Naam$(Ja%))#8,152t => Color 0 


Naam$(Ja%)=Left$(Naam$(Jad),L => 
aam$(Ja%))-1) 
Endif 
If Toets4<>8 And Len(Naam$(Jax) => 


ax,‚191tLen(Naam$(Ja%))#8+8,152+25 => Line Spr_xX,Spr_yX,Spr_x4,Spr_y => 
mi 1-22 

Loop Color 1 

Put 0,0,5% Inc Aantal _hit% 

Open "0"‚#1,"score.dat" Kogel %=0 


Far T4=l Ta 5 
Print #1,Naam$(T%) 
Print #1,PuntenX(T4) 


Spr_x4=9999 
Spr_y4=9999 
Spoke 16745024,1 


Next T% Pause 3 
Close #1 Spoke 16745024,0 
dif Put 0,0,5$ 
rn Sprite Vijand$ 
Sprite Plof1$,Vixk,175 
edure Bonus Pause 8 


ve 0,0 Sprite Plof1i$ 
t 0,0,8$ Sprite Plof2$,VIx%,175 
x4=0 Pause 8 
ftext 1,1,0,32 Sprite Plof2$ 
r T4=l To 8 Sprite Plof3$,Vix4,175 
Graphmode 4 Pause 8 
Text 100,200,440,"CHALLENGING STAGE" Sprite Plof3$ 
For TiZ=! To 8 Put 0,0,5$ 
Sound 1,15,T1%,4,1 Vixn=639 
Next T1% Endif 


VixZeVixktInt (Op) -4 
If VixX>b39 


Graphmade 1 
Text 100,200,440,"CHALLENGING STAGE" 


For Tik=l To 8 Put 0,0,5$ 
Sound 1,15,T1%,4,1 Vixz=0 
Next Ti% Inc Keer4 
xt T4 Endif 
ve 0,0 Exit If Keer4=>20 Or Aantal _hit%=10 
use 50 Loop 
ftext 1,0,0,13 Put 0,0,5$ 
t 0,0,5% If (Aantal hit4/KeerZ)#100=>75 
Extra%=5000 
Sprite Speler$,Mousex,360 Else 


Vsync If (Aantal hit%/Keer%)#100=>25 
Sprite Vijand$,Vixk,175 Extra%=1000 


If Mousek=l And KogelX=0 Else 
Void Xbios(32,L:Varptr (Schot$)) Extra%=0 
Kogel %=1 Endif 
Spr _x4=Mousex Endif 
Spr_yi=350 Wave 0,0 - 


Line Spr_xX,Spr_yk,Spr_x4,Spr_y => Alert 0,"You scored "+Str$(Aantal_h => 


it4)+" hits aut afia possible "+Str$( => 

Endif Keer)t"!!;Bonuspoints :"+Str$(Extra% => 
If KogelZ=l Nienke aso Okri er BE 

Color 0 ScoreX=Score/tExtra% 

Line Spr_x%,Spr_yh,Spr_x4,Spr_y => Keer4=0 
t (Op) Aantal _hitx=0 

Color 1 Kogel %=0 

Line Spr_x%,Spr_y4-22,Spr _x4,Sp => Spr_x4=9999 
-22-Int (Op) Spr_y4=9999 

Spr _yX=Spr_yk-Int (Op) Return 


Compudress bv.-Postbus 6-3470 CA Kamerik (bij Woerden) - Tel.03481-2124 
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Elders in dit nummer vindt u een ar- 
tikel van Frank Abbing over ”de mu- 
nitie” van de ST. Dit vormt een pri- 
ma aanvulling op het onderwerp dat 
de vorige keer in deze rubriek be- 
handeld werd: de excepties. Daar- 
mee is dat overzicht kompleet en 
kunnen we ons bezig gaan houden 
met het restant van de machi- 
netaal interrupts. 

Tot slot van deze aflevering vindt u 
een voorbeeld waarin de zogenaam- 
de ’line A routines’ gebruikt worden, 
die allerlei grafische effekten mo- 
gelijk maken. 


INTERRUPT BEHANDELING 

Wat een interrupt is en doet werd uitge- 
breid behandeld in START 5. Hoe de 
68000 interrupts verwerkt, wordt hierna uit 
de doeken gedaan. 

In figuur 1 zien we hoe het statusregister 
opgebouwd is. De drie bits 12, 11 en IO vor- 
men samen het interruptmasker. Deze bits 
zijn in staat de acht interrupt niveaus uit 
tabel 1 te kreëren. Opgemerkt moet wor- 
den dat de externe lijnen IPL2, IPLI en 
IPLO in vergelijking met 12, Il en IO een 
geïnverteerd niveau toegevoerd krijgen. 


FIGUUR 1 


De 68000 inverteert deze externe lijnen 
voor een juiste vergelijking met het inter- 
ruptmasker (zie figuur 2). Als er een inter- 
rupt aanvraag plaatsvindt, vergelijkt de 
68000 zijn ingangslijnen met de bits van 
het interruptmasker in het status register. 
Na het beëindigen van een lopende in- 
struktie bekijkt de processor de interrupt. 
Is deze lager of gelijk aan het niveau in het 
wijs masker, dan wordt de interrupt 
niet gehonoreerd. Is hij daarentegen ho- 
ger, dan wordt het exceptie-proces voor in- 
terrupts gestart. 

Een belangrijk onderdeel in de exceptie- 
cyclus is het hoog (op ’1’) zetten van de bits 
in het interruptmasker die zich op het zelf- 
de niveau als de aangevraagde interrupt 
bevinden. Hiermee wordt voorkomen dat 
lagere interrupts de verwerking van de ex- 
ceptie onderbreken. Hogere prioriteiten 
worden uiteraard wel gehonoreerd. Daar- 
na haalt de processor het vektornummer, 
dat door de aanvrager van de interrupt ge- 
genereerd is, van de databus en verwerkt 
dit tot een vektoradres. Door middel van 
dit vektoradres vinden we uiteindelijk in 
de exceptietabel het adres waarmee de 
programmateller geladen moet worden 
om de gewenste interruptroutine te 
bereiken. 
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MACHINETAAL OP DE ST 


DEEL 5: LINE A ROUTINES 


Een andere mogelijkheid wordt gevormd 
door de autovektoren. De exceptietabel uit 
START 5 geeft zeven lokaties met autovek- 
toren aan, die overeenkomen met de zeven 
interruptniveaus. De vektoren worden al- 
leen gebruikt als de zogenaamde VPA lijn 
(zie figuur 2) door de aanvrager van de in- 
terrupt aktief is gemaakt. De processor 
haalt in dat geval niet het vektornummer 
van de bus, maar gebruikt de autovektor 
uit de tabel die overeenkomt met het 
interruptniveau. 


FIGUUR 2 


Nu zijn alleen de interruptniveaus zeven 
en nul uit tabel 1 nog niet besproken. Het 
laatste geeft aan: geen interrupt aanvra- 
gen. Het allerhoogste (zeven) niveau geeft 
een niet maskeerbare interrupt. Dit komt 
overeen met de NMI zoals we die van de 
6502 kennen. 


VOORBEELD PROGRAMMA 
Ons voorbeeld programma maakt gebruik 
van ‘line A routines’. De 68000 kent een 
tweetal excepties die betrekking hebben 
op “niet bestaande” opcodes. Deze zijn 
$Axxx en $Fxxx, waarbij alleen de hoogste 
vier bits de vorm van de exceptie bepalen. 
De ATARI ST gebruikt de opcode SAxxx 
om grafische routines te implementeren. 
De laatste nibble in $Axxx selekteert een 
van de 14 grafische routines. In het pro- 
gramma worden de volgende gebruikt: 
$A000: Met deze aanroep verkrijgen we 
het adres van een data gebied waarin on- 
der andere de koördinaten van de punten 
waartussen een lijn getrokken moet wor- 
den thuis horen. 
$A003: Deze routine trekt een lijn tussen 
de koördinaten x1,yl en x2,y2. De koördi- 
naten moeten, zoals bij $A000 reeds ver- 
meld is, van te voren opgegeven zijn. 
Uiteindelijk zal het programma het woord 
op het scherm toveren, waarbij de 
letters met behulp van losse lijnstukken 


getekend zijn. De belangrijkste onderde- 
len van het programma zijn: 

START: Het programma stuurt de cursor 
naar de home-positie en wist het scherm. 
De subroutine SCHCH verricht het 
werk. 

VARZET: ’init’ zet het startadres van het 
gebied waar het programma de koördi- 
naten van de letters moet vinden, in adres- 
register AO. De variabelen die voor de goe- 
de werking van het programma van be- 
lang zijn, worden daarna in dit deel van 
het geheugen opgeslagen. 

HLIJN: Allereerst worden de drie hori- 
zontale lijnstukken van de eerste E getrok- 
ken. In figuur 3 zien we dat de eerste lijn 
van de ”E” met behulp van de koördinaten 
xl,x2 en yl tot stand komt. Door yl in een 
lus met een konstante waarde te vermeer- 
deren, zijn de twee andere horizontale 
lijnstukken van de ”E” ook te trekken. Om 
dit gemakkelijk te maken, worden de 
koördinaten eerst in registers geladen. 
Voor de tweede "E” is eveneens een lus op- 
gezet. Deze korrigeert alleen de xl en x2 
koördinaten en duikt vervolgens de eerste 
lus in. 


TABEL 1 


MASKEERBAAR 
INTERRUPT 


GEEN INTERRUPT 


VLIJN: Met de vertikale lijnen halen we 
net zo’n spelletje uit. Zo lang de afstanden 
maar konstant blijven, kunnen we snel 
werken. Eerst worden de vertikale lijnen 
van de "E” en ”I” getrokken. Dan volgt een 
korrektie om juist uit te komen voor de 
eerste lijn van de ”N” en tenslotte worden 
de vertikale lijnen van de ”D” en de ”E” 
getrokken. 

ONTBRE: De vertikale lijnen die niet 
goed in het VLIJN algoritme pasten en de 
ontbrekende diagonale lijnen van de ”D” 
worden verzorgd door een macro aanroep. 
In de aanroep worden de koördinaten 
(vier stuks) opgegeven en de macro DIAG 
(bovenaan in het programma) trekt de 
ontbrekende lijnen. 

TOETSIN: Met een CR (return) keren we 
terug naar de desktop. 
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Het TOS van de Atari-ST toont soms 
bommen op het scherm om aan te geven 
dat er in het systeem iets fout is gegaan. 
Het is niet erg duidelijk wat er fout is, of 
wat het aantal bommen betekent. Soms 
krijg je bovendien de tijd niet om te tel- 


len hoeveel bommen er vallen. 

Frank Abbing verklaart in dit artikel de 
betekenis van de bommeldingen. 
Bovendien krijgt u een handig program- 
ma kado dat het visueel geweld omzet in 
overzichtelijke tekstinformatie. 


BOMMEN EN HUN DOEL 


Onderzoek van het TOS en bestudering 
van de 68000 CPU maken duidelijk dat 


bommen een uiting zijn van ’exceptions’. 
Een exception’ in de 68000 is alles wat niet 
tot de normale afloop van een programma 
behoort. Sommige van die exceptions wor- 
den door het TOS wel als normaal’ be- 
schouwd. TOS heeft er een afhande- 
lingssubroutine voor. Sommige andere 
worden als fouten beschouwd: dan gaat 
TOS met bommen gooien. De be- 
langrijkste exceptions zijn: 


0 (en 1) Komen in aktie bij reset. Dit wordt 
door TOS verwerkt. 

2 Bus Error. Het gebruik van adressen 
boven 4 megabyte begrijpt de Atari 
hardware niet. Adressen onder de $800 
zijn in ’user-mode’ beschermd. Die geven 
ook een “Bus Error” als geprobeerd wordt 
daar iets te doen. 

3 Address Error. Als een oneven adres niet 
voor een byte maar voor een woord of een 
lang woord gebruikt wordt, is er sprake 
van een “address error”. 

4 Illegal Instruction. Niet alle bitkom- 
binaties zijn 68000 instruktiekodes. Wordt 
zo’n kode toch gebruikt, dan geeft dat een 
‘Illegal Instruction Exception’. Meestal 
wordt dit veroorzaakt door een niet goed 
afgesloten programma: het programma 
sukkelt van het programma- in het 
datageheugen. 

5 Zero Divide. De 68000 vindt delen door 
nul heel erg. TOS vindt dat niet. Als ’af- 
handeling’ dient de RTE (ReTurn from 
Exception). Het programma moet maar 
verder met een niet gedeeld deeltal, vindt 
TOS. Geen 5 bommen dus. 

Om de een of andere reden zit er een Zero 
Divide in het programma ‘Textomat’. Die 
treedt op bij het schoonmaken van het 
werkgeheugen. Onder TOS heb je daar 
geen last van. Een programma dat die Ze- 
ro Divide opvangt, verstoort “Textomat'! 
(Textomat mag dus niet met het program- 
ma uit dit artikel gebruikt worden!) 

6 CHK instruction. De CHK instruktie is 
bedoeld om vast te stellen of de waarde 
van een indexregister zich binnen bepaal- 
de grenzen bevindt. Is die waarde buiten 
de grenzen, dan treedt exception 6 op. 

7 TRAPV instruction. Voert een program- 
ma een TRAPV uit, dan zal deze excep- 
tion optreden als het V-bit aanstaat. Het V- 
bit is het oVerflow bit. Met andere woor- 
den, dit is een ‘trap-if-overflow’. 


8 Privilege violation. Sommige instrukties 
kunnen alleen in Supervisor mode wor- 
den uitgevoerd. In de (normale) User mo- 
de geven deze exception nummer 8. 

9 Trace. Die zal in een ‘gewoon’ program- 
ma niet voorkomen. Iemand die voldoen- 
de kennis van zaken heeft om een trace ex- 
ception te veroorzaken zal ook wel weten 
wat ermee te doen. (Bijvoorbeeld ‘single 
step’). 

10 Line A. Die geeft geen bommen, omdat 
TOS deze exception voor de ‘line A’ routi- 
nes gebruikt. Dat zijn heel snelle grafische 
TOS-routines waarmee heel gemakkelijk 
lijnen, rechthoeken en cirkels getekend 
kunnen worden. Vanuit een assembler 
programma zijn die heel goed aan te 
roepen. 


Het lijstje is nog niet klaar. We hebben de 
exceptions 11 tot en met 255 nog over. De 
meeste daarvan hebben te maken met 'in- 
terrupt’. Dat is een signaal dat meestal niet 
door een verkeerd programma wordt op- 
gewekt. Een melding van 200 bommen zal 
daarom niet voorkomen. 


BOMMENTOLK 


De meest voorkomende bommeldingen 
zijn 2, 3, 4 of 8 bommen. Die worden op- 
gevangen door het bijgevoegde program- 
ma. Het programma geeft een verklarende 
tekst en een ‘dump’ van alle ter beschik- 
king staande inhouden van de adres- en 
dataregisters van de 68000. Daarna wacht 
het op een toetsdruk alvorens naar de 
desktop terug te keren. Soms is er iets 
grondig fout en lukt de terugkeer niet. 
Reset is dan de enige oplossing, maar dat 
En bij de TOS-bommeldingen niet an- 
ers. 
Het programma kan in de AUTO-folder 
gezet worden. Het is kleiner dan IK. 
Als u het programma start gebeurt er ogen- 
schijnlijk niets. Het heeft fouten nodig om 
aktief te worden. De bijgevoegde vier klei- 
ne assemblerprogramma’s veroorzaken 
exceptions waarmee u de goede werking 
van uw utility kunt testen. 
Het kommentaar in de listing bevat een 
aantal malen getallen tussen haakjes. De- 
ze cijfers verwijzen naar bladzijden in het 
boek “Atari ST Intern” van Data Becker 
Nederlands. 
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KRRRKKKERKNERKNKNKNKNKR EREN ER EREN EKEREN EREN ER ER ENK 


bommldng.s 


Ed 

+ dit programma komt in actie bij ‘exception’ 
* het geeft een leesbare boodschap 
* 
Ed 


return brengt desktop terug 
f. r. abbing 


VERRE RNNK KNK KRKRERER KEN REENR ENNE NEN ENNE ER ERK 


start maveg 
lea 
move. l 
move, Ww 
move. w 
trap 
addq.l 
addq.w 
CMP. W 
blt 
cir.w 
move.l #1500,-(sp) 
move.w #$31,-(sp) 
trap #1 


#2,d5 
vectab (pc) „as 
(a5)t,-(sp) 
d3,-(sp) 
#5, (sp) 
#13 

#8,sp 

#l,d3 
#10,d3 
setvec 
-(sp) 


setvec 


bsr 
lea 
bra.s 


savregs 
busmes{pc) ,aû 
v2 3 


vector nummer 


(147) 


line 1010 


lengte bommldng.prg 
keep process 


bsr 
lea 
bsr 
lea 
bsr 
move, 1 
bsr 
MOVE. w 


btst 
bne 
lea 
bsr 
and. w 
Emp .W 
beg 
btst 
bne 
lea 
bsr 
btst 
beg 
lea 
bsr 
lea 
bar 


bit4aff 


(119) 


savregs 
adrmes{pc) ,aû 
linaut 
lacmes{(pc),aû 
linout 
2(sp),dû 
hexout8 

(sp) ‚dû 


foute locatie 


foutcode 


*bit 4 write/read, 3 instruction/not 


#4,d0 

bit4on 
wrtmes{(pc) ,aû 
linout 

#7,dû 

#7,dû 

intack 

#2,dû 

super 
usrmes{ípc) ,aû 
linaut 

#O,dû 

pragr 
datmes{pc),aû 
linout 
insmes{(pc),a0 
linaut 


1,2,5,6 of 7 


status 


bit4on 


intack 


super 


progr 


savregs 


v4: 


MOVE. Ww 
bsr 
addqg.l 
lea 
bsr 
MOVE. Ww 
bsr 
lea 
bsr 
move.l 
bsr 
lea 
bsr 
mave 
move.l 
bsr 
belr 
mave.l 
mave 
lea 
bsr 
lea 
moveg 
moveg 
move. 1 
bsr 
dbra 
tst.1 
beq.5 
lea 
bsr 
dbra 
Move, w 
trap 
addq.1 
move.w 
move, 
rte 


clr,w 
trap 


lea 
bra 


lea 
bra 


lea 
bra 


lea 
bra 


moven. l 
rts 


bsr.s 
lea 
bra.s 


bsr.s 
lea 
bra.s 


bsr.s 
lea 
bra.s 


bsr.s 
lea 
bra.s 


bsr.s 
lea 
bra.s 


bsr.s 
lea 
bsr 
bra 


éisp),dû 
hexaut4 

#8,sp 
stsmes(pc),aû 
linout 

(sp) ‚dû 
hexout4 
pctmes{(pc),aû 
linout 
2isp),dû 
hexout8 
uspmes{(pc) ,aû 
linaut 

usp,a5 

a5,dû 

hexout8 

#0,dû 

dû,a3 

aj,usp 
regmes{pc),aû 
linout 
regarealpc),al 
#l,‚d2 

#7,d3 
(ai)+,dû 
hexoutB8 


#$0300, (sp) 
texit,2(sp) 


-(sp) 
#1 


redmes{pc),aû 
bit4off 


intmes{(pc),aû 
noprg 


supmes{pc),aû 
user 


prgmes (pc) ,aû 
noprg 


„=-èstatus 


status 


program counter 


forceer even usp 


teller: 2 regels 
teller: 8 registers 


conin (110) 


status 
terugsprang adres 


dÔ-d7/a0-a7,‚regarea 


savregs 
vâmes{(pc),a0 
v4_9 


savregs 
vames (pc) ‚„aû 
v4_9 


savregs 
vémes (pc) ,aû 
v4_9 


savregs 
v7mes{pc),a0 
v4_9 


savregs 
v8mes (pc) ,aû 
v4_9 


savregs 
vImes(pc),a0 
linaut 
status 


hexaut4 


hexaut8 


hexaol 
hexa2 


return 


conout 


vectab 
hextab 
vâmes 
vames 
vémes 
v7mes 
v@mes 
v9mes 
regmes 


rgÂmes 
busmes 
adrmes 
lacmes 
insmes 
stsmes 
uspmes 
pctmes 
intmes 
wrtmes 
redmes 
usrmes 
supmes 
datmes 
prgaes 
regarea 


reg 


movem.l 
pea 
Mave.w 
trap 
addq.l 
bra.s 


movem.l 
moveg 
swap 
bra.s 


movem.l 
moveg 
move. l 
worst 
move,b 
and, w 
move, b 
bsr.s 
dbra 
move, b 
bsr.s 
movem.l 
rts 


and.w 
mave.w 
Move. w 
trap 
addq.l 
rts 


dce.l 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dce.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
dc.b 
ds.l 


taddrerr.s 


start 


moveg 


moveg 


moveg 


move.l 


move, l 


move. l 


end 


dû-d5 


regs,-{sp) 
(ad) 
#9,-(sp) 
#1 

#6,‚sp 
return 


tekst output 


regs,‚-{(sp}) 
#5,d3 teller 
dû 

hexol 


hexa ward output 


regs,;-(sp) 
#7,d3 
dû,d1 

#4 ‚di 
di,d2 

HEF ,d2 
hextab{pc,d2) ‚dû 
conout 

di,hexo2 

E00 

conout 
(sp)+t‚regs 


hexa long output 


#$7F ‚dû 
dô,-(sp) 
#2,- (sp) 
#1 

#4,sp 


een teken output 


v2,v3,v4,v5,vb,v7, vB, v9 
‘012354546789 abcdef 
$a,fd,$1b,'KIllegal ',0 
$a,$d,flb, ‘KZero Divide’,0 
$a,$d,$1b,’KCHK instr.’,0 
$a,$d,$lb, 'KTRAPVY instr, ’,0 
$a,$d,$1b,'KPrivilege Violatian',0 
$a,fd,$1b, ‘KTrace’,0 
$a,$d,$ib,'K 0 
3 2 3 
d 5 6 
$a,$d,$lb,’KDn: ‘,0 
$a,$d,$1b,'KAn: ‘,0 
$a,$d,$ib, ’KBUS’,0 
$a,$d,$1b, KADDRESS',0 
“ error op adres: ‘,0 
$a,$d,$ib, ‘KInstructie: ',0 
Status: ',0 
ie - USP te 

Po Cane 0 
$a,$d,$1b, KInt. Ackn. ’,0 
$a,$d,$Ib, ‘Kwrite-’,0 
$a,$d,$ib, Kread ',0 
‘user ',0 
“supervisor ',0 
‘data. ’,0 
‘program. ’,Ò 


#100,d0 
#101,d1 
#102,d2 
#'ABCD',d3 
#$ABCD,d4 
$ABCD,d5 


5 goeie en een foute 


{--oneven adres! 


* buserror.s 


#-100,dû 
#-101,d1 
#-102,d2 
#'ABCD',d3 
#SABCD,d4 
100,d5 
5000000,d5 


start moveg 


moveg 
moveg 

move.l 
move.l 
move, b 
move, b 
end 


51220,63,60,0,49,78,65,97, 0 
1014,65,250,2,157,96,8,97,0 
104,65,250,2,135,97,0,1,60 
65,250,2,139,97,0,1,52,352,47 
0,2,97,0,1,70,48,23,8,0 
0,4,102,0,0,194,65,250,2,194 


102,0,0,182,65,250,2,187,97,0 
0,254,8,0,0,0,103,0,0,174 
65,250,2,189,97,0,0,238,65, 250 
2,79,97,0,0,230,48,47,0,6 
97,0,0,238,80,143,65,250,2,78 
97,0,0,212,48,23,97,0,0,222 
65,250,2,85,97,0,0,198,32,47 
0,2,97,0,0,216,65,250,2,60 
97,0,0,182,78,107,32,11,97,0 
0,200,8,128,0,0,38,64,78,99 
65,250,1,128,97,0,0,158,67,250 
2,116,116,1,118,7,32,25,97,0 
0,170,81,203,255,248,74,130,103,8 
65,250,1,186,97,0,0,128,81,202 
255,230,63,50,0,1,78,65,84,143 
62,188,3,0,47,124,0,0,1,20 
0,2,78,115,66,103,78,65,65,250 
2,13,96,0,255,62,65,250,1,235 
96,0,255,98,65,250,2,13,96,0 
255,74,65,250,2,23,96,0,255,82 
72,249,255,255,0,0,5,82,78,117 
974244,65,250,0, 178,96, 38,97, 236 
65,250,0,182,94,30,97,228,65,250 
0,190,96,22,97,220,65,250,0, 197 
96,14,97,212,65,250,0,206,96,6 
97,204,65,250,0,222,97,0,0,6 
94,0,2554,40,72,231,240,0,72,80 
63,60,0,9,78,65,92,143, 96,42 
72,231,240,0,118,5,72,64,96,6 
72,231,240,0,118,7,34,0,233,153 
20,1,2,66,0,15,16,59,52,68 
97,16,B1,203,255,240,16,60,0,32 
97,6,76,223,0,15,78,117,2,64 
0,127,63,0,63,60,0,2,78,65 
88,143,78,117,0,0,0,40,0,0 
0,50,0,0,1,66,0,0,1,74 
0,0,1,82,0,0,1,90,0,0 
1,98,0,0,1,106,48,49,50,51 
52,53,54,55,56,57,97,98,99, 100 
101,102,10,13,27,75,73,108,108,101 
103,97,108,0,10,13,27,75,90, 101 
114,111,32,68,105,118,105,100,101,0 
10,13,27,75,67,72,75,32,105,110 
115,116,114,46,0,10,13,27,75,84 
B2,65,80,85,32,105,110,115,116,114 
46,0,10,13,27,75,80,114,105,118 
105,108,101,1035,101,32,84,105,111,108 
97,116,105,111,110,0,10,13,27,75 
84,114,97,99,101,0,10,13,27,75 
523 30322 IAEA NSD 
48,32,32,32,32,32,32,32,32,49 
32,32,32,32,32,32,32,32,50,32 
32,32,32,32,32,32,32,51,32,32 
32,32,32,32,52,32,52, 32,32, 32 


5 goeie en een foute 


{--verboden gebied! 
Buiten bereik ST 


* illegal.s 


start move.l 
move. Ww 
Move. w 
MOVE. W 


#fabcdef ,aû 
#£8125,al 
aÔ,a2 

al,a3 


* die hierboven zijn goed, al doen ze misschien 


de. w 
end 


58,32,0, 10, ian 75,56,85,83 
0,10,13,27,75,65,68,68,82,69 
83,83,0,352,101, 114, 114, 111, 114,32 
111,112,32,97,100,114,101,115,58,32 
0,10,13,27,75,73,110,115,116,114 
117,99, 116,105,101,58,32,0,32,32 
32,83,116,97,116,117,115,58,32,0 
44,32,32,85,83,80,58,32,0,32 
32,32,80,46,67,44,58,52,0,10 
13,27,75,73,110,116,46,32,65,99 
107,110,46,0,10,13,27,75,119,114 
105,116, 101,52,0,10,13,27,75,114 
101597,100,32, 0,117,115,101, 114,32 
D,115, 117, 112,01, 114, 118,05, 115, 141 
114,32,0,100,97,116,97,46,0,112 
114,111,103,114,97,109,46,0,0,0 


For I=t To 95 
Read 4 
B=BtA 
Print #1,Chr$(A); 
Next I 
Clase #1 
If B{259257 
Print "Er zit een fout in een dataregel!" 
Endif 


Data whs 
Data ‚0,0 
Data „0, te 100 
Data 02,38, 60, 65,66,67,68 
Data „205,42,57,0,0 
Data 171,205,0,0,0,0,0,0,0,0 
Open "0",#!,"adres.prg" 
For I=t To 60 
Read À 
B=B+A 
Print #1,Chr${a); 
Next I 
Close #1 
If B{>2106 
Print "Er zit een fout in een dataregel!" 
Endif 


* niet wat je denkt. 


Dit is '‘ILLEGAL': 


$Aafc 


* zerdiv.s 


start divs #0,d! 
end 


k | 
75,64,0,0,0,0,0,0,0,0 
"0",‚#1,"bus.prg" 

For I=t To 60 
Read A 
B=B+A 
Print #1,Chr$(A); 
Next I 
Close #1 
If B{>2091 
Print "Er zit een fout in een dataregel!" 
Endif 


Data 
Data 
Data 
Data 
Data 
Data 
Open "0"‚#1,"illegaal.prg" 
For I=! To 52 
Read A 
B=B+A 
Print #1,Chr$(A); 
Next 1 
Close #1 
If B{>1824 
Print. "Er zit een fout in een dataregel!" 
Endif 


Data 
Data 
Data 0 
Data 
Open 
Far I=1i Ta ko 
Read A 
B=B+A 
Print #1,Chr$(A); 
Next I 
Close #1 
If B{>509 
Print "Er zit een fout in een dataregel!" 
Endif 


$ T 
an e s o E F oe 


A R E 


APPIJCAT 
TON EE UM Uaiosrnen 
9 : ” Reen af 


Dat is de Atari ST 1040, de Nec-Pinwriter serie en het tekstverwerkingspakket 
SIGNUM! 

Bij een perfecte computer en dito printer hoort een softwarepakket dat alle mo- 
gelijkheden van zo'n duo benut. Het tekstverwerkingspakket SIGNUM is helemaal ge- 
schreven voor de Atari ST en een Nec-Pinwriter. Het is op dit moment het enige pakket 
dat een Nec-24 naalds printerdriver bevat. Op deze manier krijgt veen perfect geprin- 
fe tekst die u alleen nog maar met de duurdere Laser-printers kunt vergelijken. 

Dat de combinatie Atari ST 1040, een Nec-Pinwriter met 24-naaldstechnologie en 
het tekstverwerkingspakket SIGNUM perfect is, bewijst alleen al het feit dat in de twee 
eerste weken van dit jaar 600 pakketten SIGNUM verkocht zijn aan de professionele 
gebruiker. 

Wanneer u zich echt wilt laten overtuigen van alle mogelijkheden zoals het kunnen 
werken met maar liefst zeven fonts tegelijkertijd, bezoek dan vw geautoriseerde Atari ST 
dealer, die v met het pakket SIGNUM het desktop publishing tijdperk zal binnenleiden. 


Het pakket SIGNUM wordt in Nederland uitgegeven door P.D.S. en kost f. 448, — 
ex. BTW. 
Distributeur: 


Een gevolg van de populariteit van GfA-BASIC is dat veel mensen 
grotere programma’s gaan schrijven. Grote programma’s gebruiken 
veel variabele- en procedurenamen. Om dubbel gebruik te voor- 
komen, is het makkelijk als daar een lijst van gemaakt kan 
worden. 

Bij de GfA-interpreter wordt een programma geleverd dat dit zou 
moeten kunnen. Helaas werkt het vrij omslachtig. De gebruiker moet 
het programma als tekstbestand wegschrijven voor het geanalyseerd 
kan worden. Peter Witvoet ging op zoek naar een snellere 
manier. 


geeft aan uit hoeveel {o Kk 
naam bestaat. ti 

De tweede pointer s 

ste byte staat van 
stringvariabelen. Hiv 

bouw als bij de real x 

pointer heeft als wa: 
(2*16+4=36D). D: 

riabelen is dus 36-18 
integerlijst is 28H- 
Enzovoort... 

Heeft een pointer dez: 
voorgaande pointer, dan *: 
bij de pointer hoort niet in net 
voor. 


RÖNTGENFOTO 


Om een programma te kunnen schrijven 
dat een lijst van alle gebruikte variabelen 
produceert, moeten we allereerst weten 
hoe de GfA-editor programma’s opslaat. 
Om dit te onderzoeken maakte ik gebruik 
van het programma TEST.BAS. Dit pro- 
gramma bevat alle soorten variabelen, 
procedures en labels, zodat we naar een 
systeem in de manier van opslaan kunnen 
gaan zoeken. Een run van TEST.BAS is 
weinig zinvol. Het programma is slechts 
kleurstof voor de röntgenfoto die we 


Pointer 10: 
Pointer 11: 
Pointer 12: 


procedures 
deffn 
(onbekend) 


: 60 12 90 90 08 24 08 00-00 28 90 90 90 2C 00 00 
: gg 40 90 09 00 48 00 08-08 50 90 A0 00 58 00 00 ,E,‚‚N,..P.X. 
: 00 68 90 90 90 70 00 09-00 78 90 AD 00 78 00 BO ‚h.‚‚p...x...x.. 
: 01 96 00 00 02 3C 00 00-07 3E OD BD 02 5C 0000 … 

: 02 7R 00 00 02 32 B 00-07 36 00 00 02 A4 00 00 ‚z, 

: 02 BC 99 98 02 D4 00 00-02 EC 08 00 02 F4 0000 … 
: 82 FC 90 90 03 04 08 00-03 04 00 OB OA ER GLA … 
: 01 4203 4C 4F 4B O6 4C-4F 4B 41 41 4C 02 41 41 B 
t O1 4301 44 03 4C 4F 48-06 4C 4F 4B 41 41 4C 07 
: 41 41 OL 45 O1 46 Ol 47-01 48 O1 49 O1 4 O1 4B ARE 
: 81 4C OB 50 4C 41 41 54-53 45 4C 43 4R 4B OL 4D ‚L, 
: 01 4E O1 4F O1 50 O1 51-01 52 O1 53 OL 54 OL 55 
: 01 56 O1 57 01 58 05 53-54 41 52 54 08 47 45 47 
1 45 56 45 4E 53 00 03 53-55 42 03 58 41 52 DL 4l 
t 04 44 52 49 45 00 12 10-27 27 27 27 27 27 27 27 „DRIE 


MM 


» CROSS-REFERENCE DP 


„U‚N,X, START, GEG 
EVENS, „SUB „PAR „A 


Offset 


gaan maken. 

Nadat ik het programma TEST.BAS op 
schijf gezet had, moest ik met een hulp- 
programma aan de slag. MichTron Utili- 
ties bleek hier uitermate geschikt voor. De 
twee afdrukken van MichTron tonen ons 
de interne opslag van TEST.BAS. 

Enige basiskennis van het hexadecimaal 
stelsel is vereist om de struktuur in het pro- 
gramma te kunnen volgen. TEST.BAS is 
grofweg in drie blokken te verdelen: een 
blok pointers met de variabele-en proce- 
durenamen, het programma en een blok 
gegevens voor de interpreter. Het eerste 


blok is de plaats waar we meer over See, en TL 
willen weten tijs N Current File: TEST,BAS Cit] 
5 art: 
A=A 
Gosub Sub 


POINTERS 


De allereerste byte geeft aan hoe het pro- 
gramma is weggeschreven. Is de byte OOH 
(H=hexadecimaal), dan gaat het om een 
normale SAVE. Programma's die met 
PSAVE zijn weggeschreven, hebben hier 
een andere waarde staan. Alle variabele- 
en procedurenamen zijn dan vervangen 
door pointers, zodat dergelijke program- 
ma’s voor onze cross-reference afvallen. 
De tweede byte geeft aan om welke 
GfABASIC-versie het hier gaat. Op dit 
ogenblik zal dit byte de waarde O2H heb- 
ben (versie twee). 

De volgende acht bytes bevatten de naam 
'GfABASIC’, zodat de interpreter kan zien 
dat het bestand een echt GfA-pro- 


G!=True 
H!=false 


Dim I(5),J(4),K(L, 2) ,L (5,4) 
Dim M$C1) NSL), DSC, 1 „PS (1,1) 
Dim QL(H ,RUCI SL, ID, TACL, 1) 


Dim U!(1),VE CID WIC, DD, XE CL, ID) 


Gosub Par(t,"t") 


Restore Gegevens 


Print Fn A 
End 
Pracedure Sub 


Local Lak,Lokaal,Lok$,Lokaal$ 
Return 


Procedure Par (Aa,Aa$) 
Dim Flaatselijk(3) 
Return 


Gegevens: 
Data TAURUS SOFTWARE 


Current File: TEST.BAS 


seer) 


: 27 20 54 45 53 54 OD 00-04 10 OD 3D OE EO 00 45 
: pp 28 29 98 90 90 82 02-46 45 GEE O1 45 DD 40 . … 
: 40 09 90 00 02 02 46 45-04 10 OD 45 08 EL DO 45 E,,……FE E 
: DEAL 31 46 BB EL A1 45-DE O1 32 46 04 10 OD 45 IF,,E,,2F,,. 
1 04 10 OD 45 06 EZ 00 45-B3 46 O6 EZ O1 45 BO 46 ‚EEF, E, 
04 18 AD 45 84 10 OD 45-06 EJ OB 45 BC 46 O6 EI EE, Le 


gagaasFg: 40 63 20 46 04 19 0D 00-06 20 E3 00 46 21 DB EO €, F te 
EN 


POINTERS NAAR POINTERS 


Wie de afdrukken van MichTron verder 
bekijkt, ziet dat in het programma verder 
geen namen van variabelen en procedures 
voorkomen. Dat hoeft ook niet, want de 
gebruikte namen worden vervangen door 
pointers. En ook hier is systeem in te ont- 
dekken. We weten dat we minstens elf 
pointers voorin hebben staan. De GfA- 
editor heeft uitgezocht om welk type het 
gaat en maakte een verwijzing. De verwij- 
zing bestaat uit het cijfer E (hex) en een 
volgnummer. 0 voor real variabelen, | 
voor stringvariabelen, enzovoort. Komen 
we EO tegen, dan verwijst deze pointer 
naar de lijst van realnamen. Dan moet de 


Ì Sram Oee OE PEEL NEE Ne interpreter nog weten welke naam bedoeld 
, De vier bytes hierna worden niet ge- wordt. Ook hier een volgnummer in hex. 
4 bruikt. Kom je EO 02 tegen, dan zoek je bij de real 


Nu komen de pointers aan de beurt. Deze 
zijn telkens als vier-byte waarden opgesla- 
gen. Normaal gesproken hebben de eerste 
twee bytes de waarde OOH. De derde en 
vierde byte verschaffen ons informatie 
over de plaats waar een variabelenreeks 
zich bevindt. Na bestudering blijkt dat er 
twaalf pointers gebruikt worden. De vol- 
gende lijst geeft hier duidelijkheid over: 


Hierna volgen nog zestien vier-byte poin- 
ters. Waar deze voor gebruikt worden, is 
me op dit moment nog niet duidelijk. Als u 
zelf een dump maakt, is het mogelijk dat u 
hier andere waarden aantreft dan ik. 

Direkt achter deze pointers begint de lijst 
van namen waar de eerste twaalf pointers 
naar wijzen. De eerste pointer heeft de 
waarde 0012H. Dit is 18D (decimaal). Dit 


variabelen naar de derde naam, hier: 
LOK. Denk erom: deze pointers beginnen 
bij 0 te tellen! 


SPOOKVARIABELEN 

Het kan gebeuren dat er variabelenamen, 
enz. in de lijst staan die niet in het pro- 
gramma voorkomen. Deze namen zijn 


Pointer Ì: real variabelen betekent dat de eerstvolgende 18 bytes de echter wel eens eerder gebruikt, maar na- 
Ei Pointer 2: string variabelen namen van alle real variabelen bevatten. derhand door de programmeur veranderd 
Pointer 3: integer variabelen We komen uit ons testprogramma A, B, of gewist. De editor wist of verandert geen 
El Pointer 4: boolean variabelen LOK, LOKAAL en AAtegen. Nu blijktdat namen in de lijst, maar laat ze gewoon 
Ì Pointer 5: real arrays de namen van algemene en lokale staan. De enige manier om deze namen te 
Pointer 6: string arrays variabelen gewoon bij elkaar gezet wor- verwijderen is de volgende: save het pro- 

Pointer 7: integer arrays den. We kunnen ze dus niet uitsplitsen. gramma met save,a. Wis het programma 
E Pointer 8: boolean arrays Als we goed kijken, zien we dater voorel- en haal het met merge weer naar binnen. 
ff Pointer 9: labels ke variabelenaam een byte staat. De byte Uw programma wordt meteen korter. 


48 


vens zAS 

te 'WSS.BAS brengt de 
heo £, CROSS.BAS haalt 
de 1 uit een willekeurig 
“Drogt. vp en print een al- 
-tabetise. an variabelen, labels, 
grmed: res s. Zorg ervoor dat de 
„ staat voor u 

‚ng stelt. 


riabelen is als volgt 


é ge toevoegsel 


2% 

|! 
vd tear , (6) 
string array : $0) 
integer array : %) 
boolean array sl) 


Het programma CROSS.BAS bestaat uit 
een hoofdprogramma dat in de juiste volg- 
orde een aantal procedures aanroept: 
Procedure Initieer: 

De te gebruiken arrays worden in dit deel 
van het programma gedimensioneerd. P() 
voor de waardes van de pointers, T$() voor 


"tk VAR- EN PROC LISTER #44 
Gosub Initieer 
Repeat 
Repeat 
Gosub Kies.file 
If Naam$="" 
End 
Endif 
Gosub Check.basic 
If Kies=2 
End 
Endif 
Until Prima=True 
Gosub Lees.pointers 
Gosub Lees.namen 
Gosub Sorteer,.namen 
Gosub Print.namen 
Gosub Kies(2,"Wilt U stoppen, of da => 
orgaan 2") 
Clase 
Until Kies=2 
End 
"tet INITIEER #e+ 
Procedure Initieer 
Dim P(12),T$(12),5%(1000) ,N$(1000), => 
Sort4(1000) ‚Sort$(1000) 
For X=i To 12 
Read T$(X) 
Next X 
Datas, Ass le), 8 Ch, LO) et Oierais 
Basict="GfABASIC" 
Return 
‘tet KIES FILE #44 
Pracedure Kies,file 
Clr I$ 
Print At(10,10);"Welke drive (A-?) 2" 
Farm Input 1 As I$ 
If Len(1$)=0 
I$="E" 
Endif 
Disk=Asc (Upper$(1$))-64 
Chdrive Disk 
D$=I$+":\«, BAS" 
Fileselect D$,"",Naam$ 
If Naam$>"" And Naam$4>"\" 
Open "i",‚#1,Naam$ 
Endif 
Return 
“k*t CHECK BASIC #++ 
Pracedure Check.basic 
Kies=1 
Gosub Lees(1) 
Beschermd=1 
Gosub Lees(1) 
Versie=l 
Gosub Lees(8) 
“If X$=Basic$ 
Prima=True 
If Beschermí>0 
Prima=False 
Gosub Kies(1,"Dit programma is = 
met PSAVE!weggeschreven. Hier kan ik: = 
geen lijst van maken!") 
Close 
Endif 


} 
» 


de te printen toevoegingen aan de namen, 
S%() voor de pointertypes bij de namen in 
N$() en tenslotte Sort%() en Sort$() voor 
het sorteren van de namen. 


Procedure Kies. file: 

Eerst moet het programma weten in welke 
drive de schijf met het te onderzoeken pro- 
gramma zit. Daarna wordt het program- 
ma door middel van een fileselectbox 
gekozen. 


Procedure Check.basic: 

Hier wordt gekeken of het programma een 
GfA-programma is en of het niet met 
Psave is weggeschreven. 


Procedure Lees.pointers: 

De waarden van de twaalf pointers wor- 
den ingelezen, naar decimaal omgerekend 
en opgeslagen in P(). Tevens worden een- 
endertig onbekende pointers ingelezen, 
zodat het programma uitkomt op de 
plaats waar de namenlijst begint. 


Procedure Lees.namen: 
Deze leest de namen waar de pointers 


Else 
Prima=False 
Gosub Kies(1,"Dit is geen GfABASI => 
C-programma!") 
Close 
Endif 
Return 
1 AREOIKEEB TERS 
Procedure Kies(1,1$) 
Alert I,I$,1,"DOORGAAN: STOPPEN", Kies 
Return 
1 KEE LEES ER 
Procedure Lees(L) 
Clr X$ 
For X=1 To L 
I$=Input$(1,#1) 
X$=X$+I$ 
I=Asc(1$) 
Next X 
Return 
’ tt LEES POINTERS ### 
Procedure Lees.pointers 
Gosub Lees(6) 
Arrayfill P,O 
For Lus=! To 12 
Gosub Lees (1) 
Hb=1#256 
Gosub Lees(1) 
P(Lus)=Hb+I 
Gosub Lees(2) 
Next Lus 
Far Lus=i To 31 
Gosub Lees(2) 
Next Lus 
Return 
“ter LEES NAMEN Het 
Procedure Lees.namen 
Lijst=û 
For Lus={ To 12 
Veldlengte=P(Lus)-P(Lus-1) 
Teller=0 
If Veldlengte>0 
While Teller<Veldlengte 
Inc Teller 
Gosub Lees(1) 
If 120 
Teller=Teller+I 
Gosub Lees(1I) 
Inc Lijst 
S4{(Lijst)=Lus 
N$(Lijst)=X$ 
Else 
Inc Teller 
Endif 
Wend 
Endif 
Next Lus 
Return 
“#4 SORTEER NAMEN #e*t 
Pracedure Sorteer.namen 
Sort$(O)=Str$(Lijst) 
For X=1 To Lijst 
If S4(X)9 
Sort$(X)="00 "AN$(X) ATS (SAX) 
Else 
Sort$(X)=Right$("00"+Str$(S4(X) => 


naar verwijzen in N$(). Het type wordt ver- 
meld in S%(). 


Procedure Sorteer.namen: 

Dit gedeelte van het programma zet de ty- 
pes en de namen in Sort$(). Het type wordt 
in de eerste twee plaatsen vermeld, ge- 
volgd door een spatie. Daarna volgt de 
procedure sorteer. 


Procedure Print.namen: 

Deze routine print alle namen in alfabeti- 
sche volgorde onder de goede ru- 
brieksnaam. Tussen de namen staan twee 
spaties en namen die niet op een regel pas- 
sen, worden op een nieuwe regel ge- 
plaatst. 


Procedure Lees: 

Lees haalt een teken van de schijf. 1 bevat 
de ASCII-waarde van het laatst ingelezen 
teken. X$ bevat de tekst als er meer tekens 
ingelezen zijn. L is een lokale variabele 
die aangeeft hoeveel tekens er van de 
schijf gelezen moeten worden. 


1,2)" MENS (XK) 
Endif 
Sort (4) =X 
Next X 
Gosub Sorteer 
For X=t To Lijst 
S4(X)=Val (Left$(Sort$(Sort(X)) ,2)) 
N$(X)=Right$(Sort$(Sart4(X)) ‚Lent => 
Sort$(Sart%(X)))-3) 
Next X 
Return 
“_&* SORTEER #+* 
Procedure Sorteer 
Local X%,M4,H4,VA,Lèngte% 
Lengteïk=Lijst 
MA=Int (Lengte4/2) 
Repeat 
Far X4=1i To Lengte%-MX 
HL=X4 
Repeat 
VA=HL+MZ 
Exit If Sort$(Sort4(H4))<Sort => 
$(SortX(V4)) 
Swap SortX(H4),Sort%(V4) 
HL=HZ-MZ 
Until HA<=0 
Next XZ 
MZ=Int (M4/2) 
Until M/=0 
Return 
“tk PRINT NAMEN ter 
Procedure Print.namen 
Local L 
Lprint "PROGRAMMA: 
Lprint 
Lprint "Variabelen:" 
For X=l To Lijst 
If SL(X-1)<9 And SX(X)=9 
Lprint 
Lprint 
print "Labels: "; 
L=80 
Endif 
If S4(X-1)<10 And S%(X)=10 
Lprint 
Lprint 
Lprint "Procedures: "; 
L=80 
Endif 
If S4(X-I)S11 And SAMO =I1 
Lprint 
Lprint 
Lprint "Deffn:"; 
L=80 
Endif 
L=LtLen (N$(X)) +2 
If Lò79 
L=Len(N$(X))+2 
If L<79 
Lprint 
Endif 
Endif 
print NECA)ES 25 
Next X 
Lprint 
Return 


"sNaams 


hebben we u nu al gegeven. 


En we blijven doorgaan. Elk nummer 
opnieuw zullen we u bestoken met 
nieuwtjes, interviews, recensies, do- 
kumentatie, programma’s en voorde- 
lige aanbiedingen. 


Als Amor zoveel pijlen afvuurt, moet 
hij toch eens een keer de roos 
treffen? 

Een jaarabonnement bestaat uit zes 
opeenvolgende nummers en kan elk 
nummer ingaan. 

Maak f 39,95 over naar 

postgiro 1962230 

t.a.v. Divo computerservice/START 
M. Gijzenburg 14 

2907 HG Capelle a/d IJssel 


Voor België: 

Maak Bfr 800 over naar 

postgiro 000-1592758-18 

t.a.v. Divo computerservice/START 
M. Gijzenburg 14 

2907 HG Capelle a/d IJssel 
Nederland 


Geef duidelijk aan welk nummer u als 
eerste wenst te ontvangen. 


P.S. Dat waren we u nog schuldig: 
Meneer X. (zie START 5) is over- 
stag! 


HELP Mig 7 
\K HEB 6 


START LEZERSSERVICE 


De listings in elk nummer van START 
zijn ook op diskette verkrijgbaar. U be- 
spaart uzelf veel tijd voor betrekkelijk wei- 
nig geld. 

Listings in een compiler-afhankelijke pro- 
grammeertaal worden ook in hun uitein- 
delijke vorm op de START-diskette 
gezet. 

Als u zelf niet over een compiler beschikt 
en het programma toch graag in uw bezit 
wilt hebben, kan dit een uitkomst zijn. 


NIEUW: 


START SPECIAL DISK 4: 
SPELLBOUND 

(auteur Rob Koopman) 
Spellingschecker met uitgebreid Neder- 
lands woordenboek. Kontrole tijdens het 
typen of achteraf. Toevoegen aan woor- 
denboek mogelijk. Voor hoge of mid- 
delste resolutie. 


START SPECIAL DISK 5: 

SAPRISTI 

(auteur A. Bollongino) 
Etikettenmanipulator met mogelijkheden 
woor adreslabels, diskettelabels en eigen 
ontwerpen. Inklusief database en RAM- 
disk. Voor hoge of middelste resolutie. 


ETIKETTEN 
met een vrije layout 
u maakt ze eenvoudig en snel 


met 
SAPRISTI 
Rnd 


START DISK 6: 

GfA BASIC: 1ST-aid, accload, font-editor, 
fontmanipulatie, floptest, astro, cross, 
bommelding, invoer. C: fontmanipulatie. 
68000: fontmanipulatie, bommelding, cur- 
susvoorbeeld. Pseudo: spellingschecker. 


Verder zijn nog verkrijgbaar: 


START SPECIAL DISK 1: 

ELDICAD 

(auteur: Rob Hoo) 

Programma waarmee onder muisbestu- 
ring elektronikaschema’s gemaakt kun- 
nen worden. Hoge resolutie vereist. 
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START SPECIAL DISK 2: 
KATALOGER 

(auteur: Heino Kaal) 

Programma waarmee u al uw directories 
kunt verzamelen, sorteren en afdrukken. 
Hoge resolutie vereist. 


5 [ Sj eat \ 


\ 
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START SPECIAL DISK 3: 

PAINT 

(auteur: Anton Raves) 

Ikoon gestuurd tekenprogramma voor alle 
resoluties. Compatibel met DEGAS, Art 
Director, Doodle en Neochrome. 


START DISK 1: 

BASIC: Go, ST-Base, muis, venstertitel en 
alertbox. Logo : spiraal, boom, schoepen- 
rad en roos. C: 36-en. ASCII: epson printer 
driver. 


START DISK 2: 

BASIC: ST-tekst, klokreset, mastermind. 
LOGO: ijspret. 68000: klokreset. C: 
quicksort, maxi-format. 


START DISK 3: 
GfA BASIC: ST-change, rename, me- 
nudemo, sorteerdemo, kalenders, run- 
only. ST BASIC: noodrem. LOGO: 
procedurebibliotheek. 68000: cursusvoor- 
beeld, noodrem. 


START DISK 4: 

GfA BASIC: dirsort, kunST, sprites, recur- 
sie, run-only. ST BASIC: schaakeditor. 
LOGO: Dokter Logo. C: dubbelscherm en 
GEM-demo. 68000: cursusvoorbeeld. 


START DISK 5: 

GfA BASIC: 3-D frames, BTW, gokkast, 
sounds, klok, ramdisk, run-only. LOGO: 
infopaneel. C: file-selector, toonladder. 
68000: klok, ramdisk. 


A. SCREENDUMP 

(auteur: Rob Koopman) 

Uitgewerkt voorbeeld in Modula-2 om een 
eigen screendumproutine te schrijven. 


B. MEGAMAX 

(auteur: Egon Lubbers) 

Programma's en sources van: 
Impossible Figures, Mastermind, Life en 
Music Construction Set. 


C. MAKE 

Utility waarmee programmeren in C 
gemakkelijker wordt gemaakt. ”Make” 
stuurt alleen gewijzigde programmadelen 
naar de compiler. 


D. ARC 

Utility waarmee u uw programma’s in 
sterk verkorte vorm kunt bewaren. Ideaal 
voor een zo klein mogelijk aantal backup- 
schijven. 


HARDWARE: TELTRON EXTENDER 
Schakelkastje waarmee het populaire 
Teltron C64 modem op de ST aangesloten 
kan worden. Inklusief voorbeeldpro- 
gramma softwarematige baudrate instel- 
ling en autodial. 


BESTELWIJZE: 

Maak het verschuldigde bedrag over op 
postgiro 1962230 

ta.v. Divo Computerservice/START 

M. Gijzenburg 14 

2907 HG Capelle a/d IJssel 

onder vermelding van de gewenste pro- 
dukten. 


Atari ST.…. 
ideale computers 


Atari is de vriendelijke computer voor een vriendelijke prijs: een 
ideale kombinatie. Nu levert Atari een komplete range computers 
met een geheugen tot 4 Mb RAM in de Mega ST. Computers die 
overal inzetbaar zijn, bedrijfsmatig, partikulier en voor verenigingen. 
Met Atari kunt u alle kanten op! Compudress maakt deze compu- 
ters kompleet met een Epson, Brother of Nec printer én de benodig- 
de software. De toch al lage aanschafprijs behoeft geen probleem 
te zijn: U maakt gebruik van de financiële leasing met eigendoms- 
overdracht, die Compudress u biedt tegen gunstige tarieven. 


Prijsverlaging ! 
“Afari 1040-STf bundel 


Atari 1040 STf computer. 

1 Mb Ram geheugen. 

ingebouwde diskdrive 720 Kb. 

muis (=gebruikersvriendelijkheid) 
…_ monochrome monitor SM125. 

Basic programmeertaal 

Epson LX-800 dot matrix printer 

Aktieprijs f 2798,- 

Financiële leasing v.a. f 66,53 


Atari 520ST+ bundel NN 


Atari 520 ST+ computer 

1Mb Ram geheugen 
diskdrive, muis 

monochrome monitor SM125, 
Tos/Gem in ROM 

ST-Basic programmeertaal 

2 publie domain disks 
Inkl'Het AtariST boek’. 
Speciale prijs f 1.498,- 
Financiële leasing v.a. f 37,94 
Zolang de voorraad strekt! 


Epson en Nec printers N 


Epson LX-800 Nieuw! 
dot-matrix printer. 

180 kar./sec. in draft, N.L.Q8. 
Inklusief tractor feeder en single 
sheet feeder guide. 

Speciale prijs … … Bell 


Nec Pé dot-matrix printer 

24 naalds, 216 k.p.s. in draft 

72 k.p.s. in Letter Quality! 

8 Kb input-buffer 

Financiële leasing v.a. f 42,34 


Burg. de Kockstraat 11 - Postbus 6-3470 CA KAMERIK (bij Woerden) - Tel. 03481-2124 (10 lijnen) 


N Atari Mega ST bundel Ni 


Atari Mega ST computer. 

2 of 4 Mb Ram. 

Motorola 68000 processor 
ingebouwde diskdrive 720 Kb 
muis (=gebruikersvriendelijkheid) 
monochrome/kleuren monitor 
apart toetsenbord 

real-time klok 

TOS/GEM in ROM 
Nederlandstalige handleiding 
Epson LX-800 dot-matrix printer 
Nú uit voorraad leverbaar! 
Prif®::5soovaerens Bel 03481-2124 


Nieuw! Atari PC <q 


Atari PC computer 

512 Kb Ram 

8088-2 microprocessor 

8 en 4.77 MHz (omschakelbaar) 
ingebouwde 5.25 inch diskdrive 
hoge resolutie EGA monitor 
grafische modes: EGA, CGA 
Hercules, stand. monochroom 
serieël en parallel interface 
geïntegreerde muis-interface 
Nederlandstalige handleiding 
Zie de intekenaktie! 


Bel voor de Atari-infomappen! 


“Financiële leasing 
(12 tot 60 maanden) 
met eigendomsover- 


dracht voor f 10,-. 
Oók voor partikulieren! 


Kopers zijn uiteraard ook welkom! 


Officiëel dealer van o.m.: | Sn 


Apple, Atari, Epson, Olivetti, 


Commodore Amiga, Tulip, Ie 
Schneider PC, 

Printers: Brother, Epson en Nec. 

Software: AS Plus, Grote Beer, Kern 
programma's, Softkey e.v.a.. 


Bezoek showrooms (700 m?) en 
demonstratie na afspraak. 
Kamerik ligt centraal in Nederland 
tussen Woerden en Breukelen. (3 km 
van Woerden, 15 km van Oudenrijn.) 
Levering doorgaans uit voorraad. 
Garantie en service binnen 24 uur. 
Eigen technische dienst, 

Eigen trainings/opleidingsfaciliteiten. 
Prijzen zijn inklusief 20% BTW. 

(Deze advertentie is gemaakt op 
een Apple Macintosh DTP systeem) 


Kamerik 
(bij Woerden) 


Atari intekenaktie Ni 


Wilt u als één van de eersten 
in Nederland in het bezit 
komen van een Atari PC? 


Onze financiële leasing op 
gunstige voorwaarden blijft 
ook geldig tijdens de aktie. 


Nieuw: ie 
Art Director en Film Dir&ctoë 


PDS brengt weer nieuwe pakketten 
om de Atari ST nieuwe mogelijk- 
„heden te geven. Met Art Director en 
Film Director krijgt uw creativiteit 
vleugels. 


ONTDEK UW CREATIEVE TALEN 
DE UNIEKE PDS PAKKET TEN. — 


Art Director biedt u de mogelijkheid 
om met maar liefst 76 functies de 
fraaiste kleurenillustraties te maken. 
Het programma voorziet in gehele en/ 
of gedeeltelijke vervormingen of 
kleurwijzigingen van de illustraties. 
Veel verschillende technieken zoals 

schilderen, airbrush en tekenen kunt Baitelatnaga 
u toepassen. Nooit eerder was er zo'n 
compleet tekenprogramma! 

Film Director zet u op de stoel van de 
filmregisseur. Elk filmgenre dat u 
wenst kunt u maken, en is vergelijk- 
baar met een professionele tekenfilm- 
produktie. U produceert een perfect — 
vloeiend overlopende tekenfilm waar- 
in u achtergronden naar keuze creëert. — 
Met het programma kunt umonteren, — 
snellopen, teruglopen, ja zelfs muziek 
toevoegen. Of de aftiteling van uw 
videofilm verzorgen. 

Vooral als u Film Director combineert 
met Art Director zijn de mogelijk- 
heden onbegrensd. En met behulp van 
de apart te leveren video - interface 
kunt u de film overzetten op video- 
band. Film Director en Art Director, 
twee unieke PDS pakketten die uw 
dealer u graag laat zien. 

PDS. De software voor de Atari 
Professional. 


PDS 


PDS, Postbus 5829, 2280 HV Rijswijk. 


